Bonjour,
Merci infinement, j’ai trouvé la solution avec une petite modification du code que vous m’avez proposé.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h, iSct As Range
Application.EnableEvents = False
If Not Application.Intersect(Target, Range(« A:A »)) Is Nothing Then
If Target.Value = « » Then
Target.Offset(0, 1) = « »
Else
Target.Offset(0, 1) = Format(Now, « mm/dd/yy »)
End If
End If
If Not Application.Intersect(Target, Range(« AH:AH »)) Is Nothing Then
If Target.Value = « » Then
Target.Offset(0, 3) = « »
Else
Target.Offset(0, 3) = Format(Now, « mm/dd/yy »)
End If
End If
Application.EnableEvents = True
End Sub