Problème code (Formule)

je ne parviens pas à reproduire un problème avec la macro que je t'ai fournie.

AH oui ca marche je sais pas comment j'ai fais

Merci beaucou:)

Dernière petite question je peux changer les couleurs ?

voici,

il te suffit de remplacer les vbGreen ... vbWhite par les codes couleur qui te conviennent

Sub m()
Dim couleur(7)
couleur(1) = vbGreen
couleur(2) = vbRed
couleur(3) = vbBlue
couleur(4) = vbYellow
couleur(5) = vbCyan
couleur(6) = vbMagenta
couleur(7) = vbWhite
   ' li = dernière ligne de la colonne A contenant une valeur
   li = Range("A65000").End(xlUp).Row
'on indique que si on rencontre une erreur on doit passer à la ligne suivante
On Error Resume Next
 ' on parcourt les lignes 6 à li
   For i = 6 To li
      ' on colorie les colonnes A à F de la ligne i avec une couleur dont l'index  est déterminée par le jour de la semaine (1 à 7)
       Range("A" & i & ":" & "F" & i).Interior.Color = couleur(Application.Weekday(Range("A" & i)))
    Next i
End Sub

Niquel merci beaucoup pour t'es réponse rapide.

Bonne soirée