Private test As Boolean 'déclare la variable test
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'à chaque changement de la la cellule active
Dim cap As Range 'déclare la variable caa (Cellule Active au Départ)
If ActiveWindow.FreezePanes = True Then Exit Sub 'si les volets sont figés, sort de la procédure
If test = True Then Exit Sub 'si la variable test est vraie, sort de la procédure (évite la boucle)
test = True 'définit la variable test
Set ac = ActiveCell 'définit la cellule de départ
Range("E11").Select 'à adapter à ton cas
ActiveWindow.FreezePanes = True 'fige les volets par rapport à la cellule de ton choix
ac.Select 'sélectionne la cellule de départ
test = False 'reinitialise la variable test
End Sub