XL 2019 bouton qui efface 10 lignes

Sub Bouton1_Clic()
  Rows("1:10").Delete
End Sub

Sub Effacer_10_lignes()
Dim i&
With ActiveSheet 'feuille à adapter si nécessaire
    With .Range("A1", .UsedRange).EntireRow
        For i = 1 To .Rows.Count Step 10
            If Application.CountA(.Rows(i).Resize(10)) Then .Rows(i).Resize(10).Clear: Exit Sub
        Next
    End With
End With
End Sub

Sub Effacer_10_lignes()
Dim i&
With ActiveSheet 'feuille à adapter si nécessaire
    With .Range("A1", .UsedRange).EntireRow
        For i = 1 To .Rows.Count Step 10
            If Application.CountA(.Rows(i).Resize(10)) Then .Rows(1).Resize(i + 9).Clear: Exit Sub
        Next
    End With
    .Cells.Clear 'RAZ de toute la feuille
End With
End Sub

Sub Effacer_10_lignes()
On Error Resume Next 'si la feuille est vide
With ActiveSheet 'feuille à adapter si nécessaire
    .Range("A1", .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), xlValues, , xlByRows).EntireRow.Resize(10)).Clear
    If Err Then .Cells.Clear
End With
End Sub