Bonjour Marinekali, le forum,
A tester:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Me.ListObjects("Tableau1").ListColumns(1).DataBodyRange) Is Nothing Then
Target.Offset(0, 1) = Application.UserName
End If
End Sub
Il faudra adapter le nom du tableau (ici, "Tableau1" ).
Cordialement