Le poste selon plage horaire

Bonjour,

Je traite des données de type date dans la cellule A1 extraite d'un logiciel.

Je souhaite déterminer selon l'heure si je suis en P1 (5h00 à 13h00), en P2 (13h00 à 21h00) ou en P3 (21h00 à 05h00). (C'est le mot que je dois ressortir dans la cellule A4)

En B1 et C1 j'ai juste un =A1 avec un format de cellule différent pour en ressortir l'heure et le jour de semaine.

Je me casse les dents là dessus depuis un petit moment.

Mon code VBA :

 
Sub TypeDePoste()

If Range("B2") > "06:00" And Range("B2") < "14:00" Then
    Range("D2") = "P1"
    ElseIf Range("B2") > "14:00" And Range("B2") < "22:00" Then
    Range("D2") = "P2"
    Else
    Range("D2") = "P3"
       
        
    End If
    
End Sub

Le problème est que mon code ne ressort que "P3". Je pense donc qu'il ne fait pas grand chose en amont...
J'aimerais également que cela se fasse sur toutes les lignes. J'ai un doute sur la manière de procéder. Mais je cherche une solution dès la fin de ce post.

Merci d'avance ;)