XL 2010 Supprimer ligne si valeur cellule présente dans liste

Bonsoir Alma.187, bienvenue sur XLD,

C'est un problème assez compliqué qui n'est pas à la portée d'une novice.

Mais si vous y tenez, joignez votre fichier réel, sans données confidentielles.

A+

Je viens de trouver une équivalent sur le forum.
J'ai adapté le code suivant et ça fonctionne parfaitement.

Private Sub CommandButton21_Click()
Application.ScreenUpdating = False
CommandButton21.Placement = 3 'évite le déplacement (visible)
With [A1].CurrentRegion.Offset(1)
.Columns(1).EntireColumn.Insert 'colonne auxiliaire
.Columns(0) = "=1/SIGN(COUNTIF(H:H,B2))"
.Columns(0) = .Columns(0).Value 'supprime les formules
Union(.Columns(0), .Cells).Sort .Columns(0), xlAscending, Header:=xlNo 'tri pour accélérer
Intersect(.Columns(0).SpecialCells(xlCellTypeConstants, 16).EntireRow, .Cells).Delete xlUp
.Columns(0).EntireColumn.Delete 'suppression de la colonne auxiliaire
End With
CommandButton21.Placement = 2 'état initial
With UsedRange: End With 'actualise les barres de défilement
End Sub

Merci🙂