Copier les onglets d'un classeur

Sub Import()
Dim i As Integer
Dim rg As Range, rgP As Range
Dim wsBase As Worksheet
 
Set wsBase = ThisWorkbook.Sheets("Base article")
'effacer les données existantes à partir de la ligne 2
wsBase.Range("A2:D" & wsBase.Cells(Application.Rows.Count, 4).End(xlUp).Row).Clear
' on suppose que la base est le 1er onglet, donc on commence au 2e et on se rend au dernier
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Base article" Then
        Set rg = Sheets(i).Range("A2:D" & Sheets(i).Cells(Application.Rows.Count, 4).End(xlUp).Row)
        Set rgP = wsBase.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)  'une seule fois sinon ça plante
        rg.Copy rgP
    End If
Next i
End Sub

Sub Import_b()
    Dim i As Integer
    Dim rg As Variant, rgP As Range
    Dim wsBase As Worksheet
    Set wsBase = ThisWorkbook.Sheets("Base article")
    'effacer les données existantes à partir de la ligne 2
   wsBase.Range("A2:D" & wsBase.Range("D65536").End(xlUp).Row).ClearContents
    ' on suppose que la base est le 1er onglet, donc on commence au 2e et on se rend au dernier
  For i = 2 To Sheets.Count
       rg = Sheets(i).Range("A2:D" & Sheets(i).Range("D65536").End(xlUp).Row)
       Set rgP = wsBase.Range("A65536").End(xlUp).Offset(1, 0)
       rgP.Resize(UBound(rg, 1), UBound(rg, 2)) = rg
    Next i
End Sub