Ok super merci ca marche, parcontre est ce que quelqu'un aurait la sympathie de m'expliquer le code ligne par ligne SVP car je n'ai pas étudier le VBA en cours :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:B")) Is Nothing Then
If Flag = 1 Then Flag = 0: Exit Sub
Flag = 1
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil1").Activate
ActiveCell = Target.Value
End If
End Sub
MERCI