Sub test()
Sheets("BUNDESLIGA").[G:H] = ""
End Sub
Option Explicit
Private Sub Workbook_Open()
Dim i As Byte
With Worksheets("LIGUE 1")
.ComboBox1.Clear
For i = 1 To 38
.ComboBox1.AddItem i
Next i
End With
End Sub
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
Option Explicit
Sub effacer()
If ActiveSheet.Name <> "LIGUE 1" Then Exit Sub
Application.ScreenUpdating = 0: Application.Calculation = -4135
Dim dlg&, lig&: dlg = Cells(Rows.Count, 4).End(3).Row
For lig = dlg To 4 Step -12
Cells(lig - 9, 6).Resize(9, 4).ClearContents
Next lig
Application.Calculation = -4105
End Sub