VBA la méthode range de l'objet global a ....

Bonjour,

Je suis débutant en VBA et je souhaite développé mon premier programme dans lequel je pourrais mettre en couleur les cellules qui correspondent a une occupation d'un agent.
Voici mon code :

Dim rRange As Range, Couleur As Integer, ColDeb As Integer, ColFin As Integer
Dim vI As Variant
Set rRange = Range([A4], [A9])
For Each vI In rRange
If cbagent.Text = vI Then
L = vI.Row
Exit For
End If
Next vI
Index = frameOptDpl.ActiveControl.TabIndex
Select Case Index
Case 0
Couleur = 3
Case 1
Couleur = 41
Case 2
Couleur = 43
Case 3
Couleur = 35
End Select
With Sheets("Juin")
Dates = Application.Transpose(Application.Transpose(.Range("C5:AF5")))
ColDeb = Application.Match(CLng(DTPicker1), Dates)
ColFin = Application.Match(CLng(DTPicker2), Dates)
Range("(L, ColDeb):(L, ColFin)").Interior.ColorIndex = 6
...

C'est donc le dernier Range("L, ...) qui pose problème
Je compte sur vous pour m'apporter un peu d'aide

Merci d'avance :)