Simplification de code avec boucle sur changement colone

[Invité ArnoMuch]

Bonjour,

 

Est-ce que quelqu'un peut m'aider à simplifier ce code !?! Merci d'Avance

 

Je souhaite créer une boucle pour la 'Conversion des mesures'

 

Private Sub Worksheet_Change(ByVal Target As Range)


'Copie les dates dans la colone A de la feuille Conversion
Worksheets("Data").Range("A2:A" & Range("A65536").End(xlUp).Row).Copy Destination:=Worksheets("Conversion").Range("A2:A" & Range("A65000").End(xlUp).Row)

'Copie la Direction du Vent dans la colone B de la feuille Conversion
Worksheets("Data").Range("C2:C" & Range("C65536").End(xlUp).Row).Copy Destination:=Worksheets("Conversion").Range("B2:B" & Range("B65000").End(xlUp).Row)

'Copie la Vitesse du Vent dans la colone C de la feuille Conversion
Worksheets("Data").Range("D2:D" & Range("D65536").End(xlUp).Row).Copy Destination:=Worksheets("Conversion").Range("C2:C" & Range("C65000").End(xlUp).Row)

'Conversion des mesures
Worksheets("Conversion").Range("D2:D" & Range("D65536").End(xlUp).Row).FormulaR1C1 = "=((Data!RC[2]/1000)*2)-3"
Worksheets("Conversion").Range("E2:E" & Range("E65536").End(xlUp).Row).FormulaR1C1 = "=((Data!RC[2]/1000)*2)-3"
'
'Jusqu'à ........
'
Worksheets("Conversion").Range("W2:W" & Range("W65536").End(xlUp).Row).FormulaR1C1 = "=((Data!RC[2]/1000)*2)-3"

End Sub