Option Explicit
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 * 12 - 9), True
End Sub
Sub Retour()
If lig Then Application.Goto Range("A" & lig), True
End Sub
Private Sub CommandButton1_Click()
Worksheets("LIGUE 1").Range("G4, G5:G457, H4:H457").Value = ""
Worksheets("SAISON").Range("J3:J382, M3:M382").Value = ""
MsgBox "form has been reset."
End Sub