Dim lig& 'mémorise la variable
Private Sub ComboBox1_Change()
lig = ActiveWindow.ScrollRow
If ComboBox1.ListIndex = -1 Then ComboBox1 = "": Application.Goto [A1], True: Exit Sub
Application.Goto Range("A" & ComboBox1 * 11 - 9), True
End Sub
Sub Retour()
If lig Then Application.Goto Range("A" & lig), True
End Sub