Bonjour,
Si j'ai bien tout compris, tu veux filtrer ta base sur la colonne Z (26 ème) pour des valeurs supérieures ou égales à 60 et coller le résultat sur une autre feuille ?
Voici un code qui fait ça, il te faut adapter les noms des feuilles (ici Feuil1 pour la base et Feuil2 pour la feuille de récup) :
Sub CopieFiltre()
Dim Plage As Range
'la base de données est sur la feuille "Feuil1", adapter le nom
Set Plage = DefPlage(Worksheets("Feuil1"))
'filtre sur la colonne Z
Plage.AutoFilter 26, ">=" & 60
'copie le résultat du filtrage sur la feuille "Feuil2" à partir de A2, adapter le nom
Worksheets("Feuil1").AutoFilter.Range.EntireRow.Copy Worksheets("Feuil2").Cells(2, 1)
'comme les entêtes sont aussi embarquées avec la copie, suppression de la ligne d'entêtes
Worksheets("Feuil2").Rows(2).Delete
'suppression du filtre
Plage.AutoFilter
End Sub
Function DefPlage(Fe As Worksheet, Optional L As Long = 1, Optional C As Long = 1) As Range
On Error GoTo Fin
With Fe
Set DefPlage = .Range(.Cells(L, C), _
.Cells(.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
Exit Function
Fin:
Set DefPlage = Nothing
End Function