Private Sub Worksheet_Change(ByVal Target As Range)
'
' Si plus d'une cellue a changé -> sortir
If Target.CountLarge > 1 Then Exit Sub
'
' si la valeur n'est pas numérique -> sortir
If Not IsNumeric(Target) Then Exit Sub
'
' si la cellule (Target) n'est pas dans les colonnes idoines -> sortir
If Intersect(Target, Range("A6").CurrentRegion.Columns(3).Resize(, 2)) Is Nothing Then Exit Sub
'
' Eviter les appels en boucle de l'évènement Worksheet_Change
Application.EnableEvents = False
Target = Target * 1.609 ' conversion
Application.EnableEvents = True ' rétablissement de la gestion des évènements.
End Sub