Sub Archive()
DerLig = Range("A65500").End(xlUp).Row
For i = 2 To DerLig
If Cells(i, "C") = "NC" Then
LigNC = 1 + Sheets("NC").Range("A65500").End(xlUp).Row
Sheets("NC").Cells(LigNC, 1) = Now ' Insere date d'archivage
Sheets("NC").Cells(LigNC, 2) = Cells(i, 1) ' N°
Sheets("NC").Cells(LigNC, 3) = Cells(i, 2) ' Critère
Rows(Cells(i, 1).Row).Delete shift:=xlUp ' Supprime la ligne
End If
Next i
End Sub