XL 2010 insérer texte dans une cellule automatiquement

[eCHO]

Bonjour tout le monde
dons une colonne G je dois insérer des adresses et ses adresses finissent toujours par la même phrase j'aimerais savoir s'il y a une possibilité que cette phrase s'ajoute automatiquement quand je quitte la cellule

 

[DoubleZero]

Bonjour, eCHO, le Forum,

Comme ceci (dans le module de l'onglet concerné par la saisie) ?

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

A bientôt

 

[eCHO]

Bonjour, eCHO, le Forum,

Comme ceci (dans le module de l'onglet concerné par la saisie) ?

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

A bientôt

Merci