Re
Essaie comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
'Macro Dan
If stp Then Exit Sub
If Not Application.Intersect(Target, Range("B:B,F:F,J:J,N:N")) Is Nothing Then
stp = True
If IsNumeric(Target) And IsEmpty(Range("AI" & Target.Row)) Then Target.Offset(0, 33) = Time
ElseIf Not Application.Intersect(Target, Range("R:R")) Is Nothing Then
stp = True
If IsNumeric(Target) Then Target.Offset(0, 32) = Time
ElseIf Not Application.Intersect(Target, Range("D:D,H:H,L:L,P:P,T:T")) Is Nothing Then
stp = True
Target.Offset(0, 32) = Time
Target.Offset(0, -2) = ""
End If
stp = False
End Sub
Juste une remarque, il se peut que tu aies aussi des socuis avec les cellule fusionnées... à éviter avec les codes VBA. Donc ici fais quelques tests mais pas sûr que tu n'auras pas de problèmes
Si ok, lors de ta réponse clique sur la case à cocher Verte à coté du boutyon EDITER pour cloturer le fil
Amicalement