Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim li As Integer 'déclare la variable li (LIgne)
Dim cel As Range 'déclare la variable cel (CELlule)
dl = Sheets("Feuil1").Range("B65536").End(xlUp).Row 'définit la dernière ligne dl
For li = dl To 1 Step -1 'boucle 1 : inversée de la dernière ligne li à la ligne 1
For Each cel In Range("REGLAGES") 'boucle 2 : sur toutes les cellule cel de la plage nommée "REGLAGES"
If Sheets("Feuil1").Cells(li, 2).Value = cel.Value Then Rows(li).Delete 'si la valeur de la cellule ligne li, colonne B est égale à la valeur de la cellule cel, efface la ligne li
Next cel 'prochaine cellule de la boucle 2
Next li 'prochaine ligne de la boucle 1
End Sub