Bonsoir à tous,
Je souhaiterai copier les données d'un filtre automatique sans la ligne de titre. J'ai essayé avec une formule que j'ai trouvé sur un site, mais ça ne marche pas. A titre indicatif, je l'ai laissé ds la macro en commentaire.
merci d'avance.
Domi
Sub filtre()
'
Sheets("feuil2").Select
Range("A1").AutoFilter Field:=5, Criteria1:=">=12/31/" & CStr(Year(Now()) - 1), Operator:=xlAnd _
, Criteria2:="<01/31/" & CStr(Year(Now()))
Range("A1").CurrentRegion.Copy
Sheets("Feuil3").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.AutoFilter
'With Selection.CurrentRegion
'Intersect(.Cells, .Offset(1)).Select
'End With
End Sub