Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim PLV As Range 'déclare la variable PLV (PLage Visible)
Set O = Sheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O
Set PL = O.Range("A2:A" & DL) 'définit la plage PL
O.Range("A1").AutoFilter Field:=3, Criteria1:=1 'filtre la colonne 1 (=A) de l'onglet O avec 3 comme critère
Set PLV = PL.SpecialCells(xlCellTypeVisible) 'définit la plage PLV (cellules visible (non filtrée) de PL
'colle la première cellule de la plage PLV (en redimensionnant à 5 lignes et 2 colonnes (tu adpteras à ton cas) colonnes)
PLV(1).Resize(5, 2).Copy Sheets("Feuil2").Range("A1")
O.Range("A1").AutoFilter 'supprime le filtre automatique
End Sub