Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Is = "Partie 1"
Application.Goto [A3]
Case Is = "Partie 2"
Application.Goto [A6]
Case Is = "Partie 3"
Application.Goto [A9]
Case Is = "AUTRE"
Application.Goto [A12]
End Select
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Array("Partie 1", "Partie 2", "Partie 3", "AUTRE")
End Sub