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