Bonjour, Salut M12, ThauThème !
Colore ainsi sur un évènement SelectionChange ne paraît pas un bon choix !
Soit tu le fais sur commande (toute la plage donc) :
Sub CouleurCellules()
Dim c As Range
For Each c In ActiveSheet.Range("A6:Vl23")
If c.Value Like "[A-Z]" Then c.Interior.ColorIndex = 41
Next c
End Sub
Soit tu le fais sur évènement Change :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plg As Range, c As Range
Set plg = Intersect(Target, Me.Range("A6:Vl23"))
If Not plg Is Nothing Then
For Each c In plg
If c.Value Like "[A-Z]" Then c.Interior.ColorIndex = 41
Next c
End If
End Sub
NB- Il est toujours préférable pour ne pas se créer d'erreurs de lecture pour la suite de référencer une plage à partir de sa cellule supérieure gauche.
Cordialement.