Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim LI As Integer 'déclare la variable LI (LIgne)
Set O = Sheets("GL") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, 4).End(xlUp).Row + 1 'définit la dernière ligne DL
For LI = DL To 3 Step -1 'boucle inversée de la dernìere ligne Dl à la ligne 3
'si les caleur en colonne F et G sont égales, supprime la ligne
If O.Cells(LI, 6).Value = O.Cells(LI, , 7).Value Then O.Rows(LI).Delete
Next LI 'prochaine ligne de la boucle
End Sub