Problème VBA

Bonjour,
J'ai créé une fonction pour remplir les cases d'un tableau en fonction du type d'Equipe et de la date.

Voici le code que j'ai fait (le problème est qu'il m'indique une erreur et ne s'actualise pas:/ )

Function remplissage(deb1, fin1, deb2, fin2, Equipe)
Dim I, X, T, numcoul As Integer
Dim R As String
Select Case Equipe
Case Is = "Equipe 1"
numcoul = 55
Case Is = "Equipe 2"
numcoul = 3
Case Else
numcoul = 56
End Select
deb1 = deb1 - 40908
fin1 = fin1 - 40908
deb2 = deb2 - 40908
fin2 = fin2 - 40908
For T = 0 To 362
ActiveCell.Offset(0, T).Interior.ColorIndex = 0
Next T
For I = 0 To 362
If fin1 >= I And deb1 <= I Then
ActiveCell.Offset(0, I).Interior.ColorIndex = numcoul
End If
Next I
For X = 0 To 362
If fin2 >= X And deb2 <= X Then
ActiveCell.Offset(0, X).Interior.ColorIndex = numcoul
End If
Next X
End Function

Merci de vos réponses =)