Redimensionner un tableau excel automatiquement

Bonjour
Voici le code suivant qui permettre de copier Tableau1 et le coller dans tableau3

    Sub [Copy_Avec_AdvancedFilter.xlsm|attachment](upload://8zXK88eZELvQuF4h8zmedjoKATX.xlsm) (34,8 Ko) ()
        
        Dim ShBdd As Worksheet, ShArch As Worksheet
        Dim RgData As Range, RgCriter As Range
        Dim LastRow As Long
        
        Set ShBdd = ThisWorkbook.Worksheets("Bdd")
        Set ShArch = ThisWorkbook.Worksheets("Arch")
        Set RgData = ShBdd.Range("Tableau1[#All]")
        Set RgCriter = ShBdd.Range("Tableau2[#All]")
        LastRow = ShArch.Cells(ShArch.Rows.Count, 1).End(xlUp).Row + 1
        
        If ShBdd.FilterMode = True Then
            ShBdd.ShowAllData
        End If
            
        RgData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RgCriter, CopyToRange:=ShArch.Cells(LastRow, 1)
        ShArch.Rows(LastRow & ":" & LastRow).Delete Shift:=xlUp
       
     End Sub

Après l’exécution du code le tableau3 ne se Redimensionner pas automatiquement
Svp comment Redimensionner automatiquement
Merci
Copy_Avec_AdvancedFilter.xlsm (34,8 Ko)

Bonjour

Ton fichier adapté ci-joint

En espérant que cela te conviennes
Dis moi

Copy_Avec_AdvancedFilter.xlsm (25,9 Ko)

1 J'aime

mille merci monsieur

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.