J'ai trouver Ric ton code été bon en effet mais vu que j'ai eu le malheur d’intervertir des colonnes j'avais adapter ton code mais j'avais oublier quelques adaptation
J'avais adapter comme cela:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Count = 1 Then
If Target.Offset(0, 5) <> "" Then
Exit Sub
Else
Application.EnableEvents = False
Target.Offset(0, -1).Value = Now
Application.EnableEvents = True
End If
End If
End If
End Sub
Et il fallait pas oublier de changer le 5 en -1 donc il me fallait cela:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Count = 1 Then
If Target.Offset(0, -1) <> "" Then
Exit Sub
Else
Application.EnableEvents = False
Target.Offset(0, -1).Value = Now
Application.EnableEvents = True
End If
End If
End If
End Sub
Donc c'est tout bon pour moi merci beaucoup Ric pour ton aide ça fonctionne à merveille =D