XL 2019 vba supprimer une ligne

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
If Range("Tbl_Saison_2").ListObject.DataBodyRange Is Nothing Then Exit Sub    'Tableau vide
If Range("Tbl_Saison_2").ListObject.ListColumns(1).Range.SpecialCells(xlCellTypeVisible).Count > 1 Then
    ListObjects(1).DataBodyRange.Copy ListObjects(2).ListRows.Add.Range
    ListObjects(1).DataBodyRange.Delete
End If

For i = 309 To 1 Step -1
    ListObjects(2).ListRows(i).Delete
Next i
End Sub