Macro automatisation

Bonjour

j'ai un fichier sue je voudrais automatiser ce que j'ai sur la feuille 2 est brut et je voudrais ce qu'il y a sur la feuille 1

cependant en faisant un macro automatique celle ci est longue il faudrait que j'ai une meilleure mùacro en definissant les paramtres

merci

cordialement

Bonsoir à tous,

Sub Données()
    With Sheets("Feuil1")
        '--- filtre données ---
        Range("b1:s" & [b65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=.Range("a14:r14"), Unique:=False
        '--- format police ---
        .Range("a14:r" & .[a65000].End(xlUp).Row).Font.Size = 8
        .Activate
    End With
End Sub

Amicalement

Claude