Filtre élaboré copier valeur et format

[nulo63]

Bonjour à tous et bonne année!🙂

J'ai écris une petite macro qui filtre les données d'une feuille, les récupère et les copie dans une autre feuille

cette macro fonctionne et la voici:

Private Sub Extraire_données_Click()

    Range("A101").Rows("1:601").EntireRow.Select
    Selection.ClearContents
    Selection.Delete Shift:=xlUp
        
  With Worksheets("Donnees") 
    .Range("B1:DD400").AdvancedFilter Action:=xlFilterCopy, _
     CriteriaRange:=Worksheets("Tri").Range("A1:D2"), _
     CopyToRange:=Worksheets("Tri").Range("A100:Z100"), Unique:=False

    End With

End Sub

Par contre je souhaiterais récupérer également la largeur et hauteur des cellules copiées, est-ce possible? je cherche depuis hier et ne trouve pas...

merci par avance

 

[nulo63]

Re : Filtre élaboré copier valeur et format

Je remonte ce topic 🙂

merci par avance!