Microsoft 365 Macro archivage

Option Compare Text                                 ' Pour les majuscules et minuscules

Sub Archivage()
Dim dlg&, lg&, i&                                   ' Déclaration des variables en entier long
With ActiveSheet
    dlg = .Range("A" & Rows.Count).End(xlUp).Row    ' Derniere ligne de la feuille active
    For i = dlg To 2 Step -1                        ' On part de la derniere ligne et on remonte
        If Range("I" & i) = "x" Then                ' On regarde la colonne I si il y a un "x"
            lg = Sheets("ARCHIVE").Range("A" & Rows.Count).End(xlUp).Row + 1    ' Derniere ligne de la feuille ARCHIVE
            .Range("A" & i & ":I" & i).Copy Sheets("ARCHIVE").Range("A" & lg)   ' On copie dans les archves
            .Rows(i).Delete                         ' On supprime la ligne qui vient d'être copié
        End If
    Next                                            ' On passe à la ligne suivante (ici c'est la ligne du dessus)
End With
End Sub