Selection plusieurs colonnes VBA

Bonjour à tous,

Je me permets de créer un nouveau sujet car je ne parviens pas à inscrire trois colonnes dans ma macro (ci dessous). Je sais que pour deux colonnes qui se suivent (ici C et D), il me suffit d’insérer ":", mais comment faire pour ajouter une troisième colonne, qui serait la "K" par exemple?

Merci d'avance

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Worksheet_Change
'Gestion des erreurs rendues obligatoire par les instructions
'sur application.
'Déclaration ================================================
Dim Cel As Range
'Validité ===================================================
If Intersect(Target, Columns("C:D")) Is Nothing Then GoTo Sort_Worksheet_Change
'Blocage écran et évènements ================================
Application.EnableEvents = False
Application.ScreenUpdating = False
'Traitement ================================================
For Each Cel In Intersect(Target, Columns("C:D"))
'pour chaque cellule modifiée appartenant à C et D
Cel = UCase(Cel)
'cellule =majuscule(cellule)
Next Cel
'cellule suivante
'Sortie obligatoire =========================================
Sort_Worksheet_Change:
Application.EnableEvents = True
Application.ScreenUpdating = True
'remise en route fonctions Excel bloquées
Exit Sub
'Sortie de la macro
'Traitement des erreurs =====================================
Err_Worksheet_Change:
MsgBox Err.Description, vbOKOnly + vbCritical, "ERREUR EXCEL n°" & Err.Number
'avertissement par boîte de dialogue
Resume Sort_Worksheet_Change
'Continuer à l'adresse de sortie
End Sub

Bonjour

A tester

If Intersect(Target, Range("C:D,K:K")) Is Nothing Then GoTo Sort_Worksheet_Change

Bonsoir Banzai64 !

Merci d'avoir pris le temps de me répondre, et surtout pour ton aide, j'ai testé et c'est parfait!