Renvoi d'info dans une whorksheet

Private Sub CommandButton1_Click() 'bouton "Copier"
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
 
ActiveCell.Select 'enlève le focus au bouton
'boucle sur toutes les cellules éditées cel de la colonne L (en partant de la ligne 7)
For Each cel In Range("L7:L" & Range("L65536").End(xlUp).Row)
    If cel.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)
        'copie la ligne de la colonne A à la colonne L dans la cellule de destination
        Range(Cells(cel.Row, 1), Cells(cel.Row, 12)).Copy dest
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
Sheets("archive").Select 'sélectionne l'onglet "archive" (si nécessaire ???)
End Sub

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