Bonjour,

Je voulais savoir s'il y avait une méthode plus simple que ce j'ai fait...

Voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
    ActiveSheet.Range("$A$1:$AM$2500").AutoFilter Field:=39, Criteria1:= _
        ">03/31/2016", Operator:=xlAnd   
 
    Set miPlage = Range("A65536:" & Range("AN65536").End(xlUp).Address).SpecialCells(xlCellTypeVisible)
    miPlage.Copy Destination:=Sheets("retraitements").Range("A1")
    Set miPlage = Nothing
Le code permet de trier dans la colonne AM sur une date.
S'il y a des lignes qui sont concernées (donc supérieur à cette date) alors je la copie vers un autre onglet..