Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <> 7 Then Exit Sub
Application.EnableEvents = False
c.Value = c.Value & " toto" ' adapter
Application.EnableEvents = True
End Sub
MerciBonjour, eCHO, le Forum,
Comme ceci (dans le module de l'onglet concerné par la saisie) ?
A bientôtCode:Option Explicit Private Sub Worksheet_Change(ByVal c As Range) If c.Column <> 7 Then Exit Sub Application.EnableEvents = False c.Value = c.Value & " toto" ' adapter Application.EnableEvents = True End Sub