Bonjour
Essaie avec ce code :
Sub test()
'macro Dan
Dim lg As Integer
For lg = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If IsError(Range("B" & lg)) Then Range("B" & lg).EntireRow.Delete
Next
End Sub
Code à placer dans un module en VBA et à exécuter depuis l'onglet développeur -> bouton Macro -> puis exécuter la macro TEST ou via un bouton placé sur la feuille
Si ok, lors de ta réponse veille à cocher la case verte à coté u bouton EDITER pour cloturer le fil
Amicalement