Bonjour
Code inutilement compliqué, ceci fait la même chose
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D6")) Is Nothing Then Exit Sub
Range("D11") = Right(Environ("username"), Len(Environ("username")) - 2)
End Sub
OK pour déclencher toutes les 7 lignes mais on écrit aussi toutes les 7 lignes ? Si oui
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Or Target.Row Mod 7 <> 6 Or Target.Cells.Count > 1 Then Exit Sub
On Error GoTo Fin
Application.EnableEvents = False
Target.Offset(5, 0) = Right(Environ("username"), Len(Environ("username")) - 2)
Fin: Application.EnableEvents = True
End Sub