Microsoft 365 Macro qui supprime les données

Option Explicit
Sub AffToutSupprDonTab()
   Dim Wsh As Worksheet, LOt As ListObject, Rép As VbMsgBoxResult
   For Each Wsh In ActiveWorkbook.Worksheets
      Set LOt = Wsh.ListObjects(1)
      If LOt.AutoFilter.FilterMode Then LOt.AutoFilter.ShowAllData
      If MsgBox("Données tableau " & LOt.Name & " à supprimer ?", _
         vbYesNo, "AffToutSupprDonTab") = vbYes Then LOt.DataBodyRange.Delete
      Next Wsh
   End Sub

Sub CopierBAtRBase()
   Dim RngSrc As Range, RngCbl As Range
   Set RngSrc = [BaseRéaliséAtterrissage[[Brut atterrissage]:[xxxx]]]
   Set RngCbl = [BASE[[Brut atterrissage]:[xxxx]]]
   RngCbl.ClearContents
   Set RngCbl = RngCbl.Resize(RngSrc.Rows.Count, RngSrc.Columns.Count)
   RngCbl.Value = RngSrc.Value
   End Sub