Bonjour,
Essaye ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Union(Target, Columns("G:G")).Address <> Columns("G:G").Address Then Exit Sub
Sheets("Traitements").Activate
End Sub
Ci dessous pour acceder a Worksheet_SelectionChange:
1/ acceder a VBA a partir de ton workbook -> Alt F11
2/ ouvrir l'explorateur de projet -> Ctrl r ( il y a des chances qu'il soit deja ouvert sur la gauche
3/ Clicher sur la Sheet "Clients" avec le bouton droit -> View Code
4/ En haut a gauche selecter -> Worksheet
5/ En haut a droite choisir -> SelectionChange
@+