sélection d'une cellule

Sub Zonecombinée10_QuandChangement()
'nom de la variable
Dim Choix As Integer
'caractéristiques variables

With Sheets('Feuil2')
    Choix = .Range('Q4').Value
    Select Case Choix
    Case 1
        Application.GoTo Reference:=[A5], Scroll:=True
    Case 2
        Application.GoTo Reference:=[A20], Scroll:=True
    Case 3
        Application.GoTo Reference:=[A31], Scroll:=True
    Case 4
      Application.GoTo Reference:=[A48], Scroll:=True
    Case 5
        Application.GoTo Reference:=[A72], Scroll:=True
    Case 6
        Application.GoTo Reference:=[A90], Scroll:=True
    Case 7
        Application.GoTo Reference:=[A103], Scroll:=True
    Case 8
        Application.GoTo Reference:=[A116], Scroll:=True
    Case Else
        Application.GoTo Reference:=[A1], Scroll:=True
    End Select
End With

End Sub

Cliquez pour agrandir...