Aide pour configuration d'un macro sur excel

Option Explicit
Private Sub Worksheet_Activate()
For_X_to_Next_Ligne
End Sub

Option Explicit
'https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
'https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
'https://docs.microsoft.com/fr-fr/office/vba/api/excel.range.copy
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim DerniereLigneUtilisee As Long
    Set FL1 = Worksheets("Liste de commande")
    NoCol = 7 'lecture de la colonne G
           DerniereLigneUtilisee = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1 'où X est la colonne donnée
    Range("A2:H" & DerniereLigneUtilisee).ClearContents 'on efface
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "Accepté" Then
        DerniereLigneUtilisee = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1 'où X est la colonne donnée
        FL1.Range("A" & NoLig & ":H" & NoLig).Copy _
    Destination:=Worksheets("Feuil1").Range("A" & DerniereLigneUtilisee)
        End If
    Next
    Set FL1 = Nothing
End Sub