Bonjour Kirei-Sama, bonjour le forum,
Essaie comme ça :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Derniere Ligne)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim I As Integer 'déclare la variable I (Incrément)
Dim PAE As Range 'déclare la variable PAE (Plafe À Effacer)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "AF").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne AF de l'onglet O
Set PAE = O.Range("A1") 'initialise la plage PAE
For I = 1 To DL 'boucle sur toutes les lignes I de 1 a DL
'si la cellule ligne I colonne AF est supérieure à 500, redéfinit la plage PL
If Cells(I, "AF") > 500 Then Set PAE = IIf(PAE.Cells.Count = 1, O.Rows(I), Application.Union(PAE, O.Rows(I)))
Next I 'prochaine ligne de la boucle
PAE.Delete 'supprime la plage PAE
End Sub