Bonjour,
j'ai une macro évènement qui traduit ca en CA couleur Jaune pale, rs en RS couleur Jaune vif.

Cela fonctionne très bien, sauf que si je sélectionne plusieurs cellules (contiguë ou non), que je saisie ca ou CA et que je valide avec Ctrl + Entrée, il ne se passe rien.
Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo GetOut
'Mise en forme conditionnelle des congés
If Not IsNumeric(Target) Then
Select Case Application.Intersect(Target, Range("E11:AI50"))    'Target
Case "CA", "ca"     
    With Target
    'Saisie automatiquement mise en majuscule
        .Value = UCase(Target.Value)
        .Interior.ColorIndex = 36    'Jaune pale
    End With
Case "RS", "rs"
    With Target
        Target.Value = UCase(Target.Value)
        Target.Interior.ColorIndex = 6 'Jaune fluo
    End With
Case Else
    Target.Value = UCase(Target.Value)
    Target.Interior.ColorIndex = 0  'Blanc
End Select
End If
GetOut:
End Sub
Est-ce que quelqu'un peut m'aider, svp ?
Merci