Salut,
Par macro, non je ne puis t'aider, mais bien par une petite formule.
Tu crées une colonne supplémentaire A, dans laquelle tu encodes en A2 :
=SI(NB.SI(B$1:B2;B2)>1;LIGNE();"")
formule que tu copies vers le bas.
Ensuite tu sélectionnes cette colonne A et tu fais F5 / Cellules / Formules / ne laisser que l'onglet "nombres" coché / OK / Edition / Supprimer / Ligne entière / OK.
Il n'est pas besoin de mettre les lignes à supprimer en format "gras".
Ândré.