Coloriage cellule formulaire

Merci pour votre retour, en effet il serait plus simple de partager mon fichier mais je ne trouve pas le moyen de le faire!

@MichelAccesstu publies le fichier sur internet (google drive, cjoint.com, ...), et tu partages ici le lien vers le fichier.

Merci pour les informations.
Voici le fichier lié a ma demande : https://drive.google.com/file/d/1_rF1Dr-HRQ8d8R5Ts6qvI0Z9r26BMVvR/view?usp=sharing

Je souhaite dans le formulaire "Test" de celui-ci :
Lorsque je sélectionne "Aboutit" dans la cellule "statut de l'appel", j'aimerais que les cellules "validation" et "date du rdv" s'allume en orange. Puis lorsque je rempli la cellule"validation" celle-ci redevienne blanche.

J’espère avoir été assez claire.
Merci d'avance.

@MichelAccesssuggestion:

Private Sub Date_du_RDV_AfterUpdate()
Call colorons
End Sub

Private Sub Form_Current()
Call colorons
End Sub

Private Sub Statut_de_l_appel_AfterUpdate()
Call colorons
End Sub

Private Sub Validation_AfterUpdate()
Call colorons
End Sub

Private Sub colorons()
Me.Validation.BackColor = RGB(255, 255, 255)
Me.Date_du_RDV.BackColor = RGB(255, 255, 255)
If Me.Statut_de_l_appel = "Aboutit" Then
    Debug.Print ".", Me.Validation.Value
    If IsNull(Me.Validation.Value) Or Me.Validation.Value = "" Then
        Me.Validation.BackColor = RGB(255, 165, 0)
    End If
    If IsNull(Me.Date_du_RDV.Value) Then
        Me.Date_du_RDV.BackColor = RGB(255, 165, 0)
    End If

Cela est parfais j'ai pu l'adapter parfaitement au reste de mon fichier.
Un grand merci a vous pour votre réactivité et pour la solution apportée.