XL 2021 de mettre une couleur sur chaque mot commencant par a ou b ou c

'*********************************
'PROCEDURE POUR ALIMER LISTE VIEW
'*********************************
Sub AlimentrLv()
'DECLARATION DE VARIABLE
    Dim f As Worksheet
    Dim Lr As Long
    Dim ligne As Integer
    Dim c As Variant

    Set f = ThisWorkbook.Sheets("Base")

    With Me.ListView1
        .ListItems.Clear    'vide la listview de ces donnees
        With .ColumnHeaders    'ce sont les en tete de colonne
            .Clear    'Vide les entete
            'AJOUT DES EN TETE
            .Add , , "Nom", 157    ', lvwColumnCenter 'lvwColumnCenter centre le code
            .Add , , "Utilisateur", 0
            .Add , , "Mot de Passe", 0
            .Add , , "Question 1", 0
            .Add , , "Reponse 1", 0
            .Add , , "Question 2", 0
            .Add , , "Reponse 2", 0
            .Add , , "Question 3", 0
            .Add , , "Reponse 3", 0
            .Add , , "Question 4", 0
            .Add , , "Reponse 4", 0
            .Add , , "Question 5", 0
            .Add , , "Reponse 5", 0
            .Add , , "test", 0    'RAJOUTER POUR TEST
        End With
        .View = lvwReport    'Type de raport
        .Gridlines = True    'ajoute un cadriage
        .FullRowSelect = True    'pour pouvoir selectionner une ligne a la souris

        Lr = f.Range("A" & Rows.Count).End(xlUp).Row    'pour remonter la colonne B
        If Lr = 2 Then Exit Sub    'si la derniere ligne et l'en tete on sort du programme

        '***************************
        'ALIMANTATION DE LA LISTVIEW
        '***************************
        ligne = 1    'ligne est une variable

        For Each c In Range("A3:A" & Lr)
            .ListItems.Add , , c
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 1)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 2)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 3)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 3)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 5)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 6)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 7)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 8)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 9)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 10)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 11)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 12)
            .ListItems(ligne).ListSubItems.Add , , c.Offset(, 13)    'RAJOUTER POUR TEST

            Select Case Left(c, 1)
            Case "a", "A": .ListItems(ligne).ForeColor = vbRed
            Case "b", "B": .ListItems(ligne).ForeColor = vbGreen
            Case "c", "C": .ListItems(ligne).ForeColor = vbBlue
            End Select

            ligne = ligne + 1
        Next c
    End With

    'DETRUIRE POUR LIBERER MEMOIRE
    Set f = Nothing

End Sub