Coloration de lettres d'un tableau

Bonjour

je vous joins mon fichier contenant un tout petit code qui me permet de colorer les lettres d'un tableau

ce tableau contient diverses lettres et si la lettre V est lu alors elle devra etre coloriée en rouge , et s'il y a plusieurs

V dans une colonne alors seul un V par colonne devra etre colorié et c'est sur ce point que je n'arrive pas à avancer.

je vous remercie pour toute suggestion ou aide

Cordialement .

Bonjour

Une idée

Option Explicit

Sub coloration()
Dim Fait As String
Dim cell As Range
  Range("a2:g5").Font.ColorIndex = xlAutomatic
  For Each cell In Range("a2:g5")
    If cell = "V" Then
      If InStr(1, Fait, "," & cell.Column) = 0 Then
        cell.Font.ColorIndex = 3
        Fait = Fait & "," & cell.Column
      End If
    End If
  Next
End Sub

Pas mal !!! Banzai je n'aurais pas fait mieux en tout ca je te remercie ca marche du tonnerre !

Cordialement , Rocket