Supressions sous condition

Bonjour les amis, j'espère que vous allez bien ?

Je viens a vous car j'aimerai pourvoir effacer des lignes de mon tableaux sous certaines conditions, je vous explique

j'aimerai que la macro repère si dans la colonne B (onglet recherche par entreprise) il y'a des doublons;

Si oui qu'elle supprime les lignes doublons en conservant sur une seule lignes les informations qu'elle récupéra des autres lignes en respectant une priorité quand elle efface les données.

J'aimerai qu'elle me ramène en priorité par colonne le mot , " A JOUR" , " METTRE A JOUR" " PAS A JOUR"

Je vous joins mon fichier ainsi qu'un début de macro , mais elle ne supprime pour l'instant que les doublons mais je n'arrive pas a l'améliorer pour arriver a mon but.

Je vous remercie pour votre aide

Sub supression_doublons()

' La colonne de référence est la première colonne
ActiveSheet.Range("B2").Sort _
        Key1:=ActiveSheet.Columns("B"), _
        Header:=xlGuess

Range("B2").Select
Do While Not IsEmpty(ActiveCell)                
If ActiveCell = ActiveCell.Offset(-1, 0) Then   
    ActiveCell.EntireRow.Delete                 
    Else: ActiveCell.Offset(1, 0).Select       

End If
Loop

MsgBox "Supression des doublons"
End Sub