Bonjour,

Merci d’avoir mis le fichier, j’aurai fait exactement pareil Marc, peut être pas avec la même syntaxe (je débute…) mais dans le même esprit

J’ai juste ajouté une condition que le changement ai eu lieu dans la première colonne dans ton fichier, pour ne pas qu’il colle des infos partout

:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Column = 1 Then

If Cells(Target.Row, Target.Column) > 0 And Cells(Target.Row, Target.Column) < 0.5 Then

Cells(Target.Row, Target.Column + 3) = Cells(Target.Row, Target.Column)

End If

End If

Application.EnableEvents = True

End Sub