Private Sub CommandButton1_Click() 'bouton "Copier"
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x (incrément)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
dl = Range("L65536").End(xlUp).Row 'définit la dernière ligne de la colonne L
'boucle inversée sur toutes les cellules éditées cel de la colonne L (en partant de la dernière jusqu'à la 7ème)
For x = dl To 7 Step -1
If Cells(x, 12).Value = "Fait" Then 'condition : si la valeur de la cellule est "Fait"
'définit la cellule de destination dest (première cellule vide rencontrée dans la colonne A de l'onglet "archive"
Set dest = Sheets("archive").Range("A65536").End(xlUp).Offset(1, 0)
'Coupe la ligne de la colonne A à la colonne L et la colle dans la cellule de destination
Range(Cells(x, 1), Cells(x, 12)).Cut dest
Range(Cells(x, 1), Cells(x, 12)).Delete Shift:=xlUp 'supprime la ligne
End If 'fin de la condition
Next x 'prochaine cellule de la boucle
Sheets("archive").Select 'sélectionne l'onglet "archive" (si nécessaire ???)
End Sub