Voilà, je t'ai fait un exemple vite fait !
Voici la macro qui en découle, faite avec l'enregistreur
Sub Recopie()
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Blao"
Range("A4:C4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Sheets("Base").Select
Selection.AutoFilter Field:=1
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
A plus Moa