Bonjour à tous,
With Sheets("Archives")
.Range("b8:g" & .[b65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("a6:a7"), CopyToRange:=Range("Base!b8:g8"), Unique:=False
End With
ici la base de données est la feuille "Archives",
.Range("b8:g" & .[b65000].End(xlUp).Row) = la plage de la BDD
CopyToRange:=Range("Base!b8:g8") = extraction dans feuille "Base",
Attention: b8:g8 , mêmes en-têtes que la feuille "Archives"
les critères doivent être sur la même feuille que la BDD
Amicalement
Claude.
édit: merci de mettre le titre du poste en minuscule