Macro pour couleurs automatiques

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Select Case Target.Column 'agit en fonction du numéro de colonne de la cellule modifiée
    
    Case 26 'colonne Z
        'si les majuscules de la cellule modifiée sont "OUI" (donc accepte aussi "oui", "Oui", etc...),
        'colore le fond des colonnes A à AN en orange
        If UCase(Target.Value) = "OUI" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 40)).Interior.ColorIndex = 44
    Case 28 'colonne AB
        'si les majuscules de la cellule modifiée sont "OUI"
        'colore la police des colonne A à AN en bleu
        If UCase(Target.Value) = "OUI" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 40)).Font.ColorIndex = 23
    Case 30 'colonne AD
        'si les majuscules de la cellule modifiée sont "OUI"
        'colore la police des colonne A à AN en rouge
        If UCase(Target.Value) = "OUI" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 40)).Font.ColorIndex = 3
    Case 27 'colonne AA
        'si les majuscules de la cellule modifiée sont "OUI"
        'colore le fond des colonnes F à AI en jaune
        If UCase(Target.Value) = "OUI" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 35)).Font.ColorIndex = 19
 
End Select 'fin de l'action en fonction du numéro de colonne de la cellule modifiée
End Sub