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