Bonjour
En réalité, ton code est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G94:G101")) Is Nothing Then
Cells(Target.Row, 8) = "Le " & Format(Date, "dddd d mmm yyyy") & " à " & Format(Now, "hh:mm:ss")
End If
End Sub
G2 n'est pas dans la sélection.
Bye !