Bonsoir,
j'ai utilisé la surveillance événementielle "Change" de la feuille afin de détecter un changement de donnée sur la cellule D5 qui n'est autre que la cellule de liste de choix.
Ensuite avec un Select sur le texte de cette cellule je lance les différents code pour cibler les cellules voulues.
Le code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
Select Case Target.Value
Case "Je vais à la Page 3 cellule B4"
Feuil3.Visible = True
Feuil3.Activate
Feuil3.Range("B4").Select
Case "Je vais dans la cellule F5"
Range("F5").Select
Case "Je vais dans la cellule C13"
Range("C13").Select
End Select
End If
End Sub
Le fichier :
@ bientôt
LouReeD