Private Sub recopie_Click()
lig = [B65000].End(3).Row 'nombre de dossiers extraits
Lig2 = Feuil1.[B65000].End(3).Row + 1
Lig3 = Range("A65000").End(3).Row + 1 'determination de la premiere cellule libre dans la colonne
'effacement des donnees precedentes
'Sheets("Feuil1").Select
'activation du filtre
Sheets("archive").Select
ActiveSheet.Range("$A$1:$F" & lig).AutoFilter Field:=6, Criteria1:="<>"
'comptage du nombre de dossiers nouveaux
lig = [B65000].End(3).Row
'test si aucun dossier a traiter
' If lig = 0 Then MsgBox ("Attention , pas de nouveaux dossiers!! ")
' Exit Sub
'copie des nouveaux dossiers sur la feuille ' a traiter
Range("B2:E" & lig).Copy Feuil1.Range("B" & Lig2)
'stockage des numeros de dossiers traites
Range("B2:B" & lig).Copy Range("A" & Lig3) 'ok
'annulation du filtre
ActiveSheet.Range("$A$1:$F" & lig).AutoFilter Field:=6 'ok
'If Lig3 > 50 Then Range(2 & " : " & Lig3 - 50).Select
' Selection.Delete Shift:=xlUp
'effacement des donnees extraites
Sheets("archive").Select 'ok
Range("B2:E" & lig).ClearContents 'ok
End Sub