Colorer le fond d'une cellule

Bonjour la communauté!

j'ai besoin de votre sagesse et votre savoir encore une fois :'(

j'ai un fichier excel ou j'ajoute quotidiennement des rapports, j'ai ajouté un boutton pour ajouté un rapport manquant donc ajouté des "0" dans les cellules que je veux.

jusqu'a la j'arrive a m'en sortir.

je veux que le rapport que je viens d'ajouté ait des cellules colorer en orange ou n'importe quel couleurs.

Private Sub CommandButton2_Click()
Dim i, PL

a = InputBox(Space(15) & "Saisir une date sous la forme" & Chr(13) & Space(30) & "JJ/MM/AAAA")
On Error Resume Next
Set PL = Sheets("Feuil2").Range("A2:e368")
For i = 1 To PL.Rows.Count
If PL(i, 1) = CDate(a) Then Exit For
Next
PL(i, 2).Value = 0
PL(i, 3).Value = 0
PL(i, 4).Value = 0
End Sub

voici le code et aussi le fichier de test en piece jointe

merciiiiiiiiiiiii