Exécution macro et surface couverte par macro

Bonjour,
je suis débutant de chez débutant en macro !
j'ai créé une macro sur excel 2003 pour pouvoir avoir plus de trois mises en formes conditionnelles. Cette macro s'applique à un tableau (b8:bu18) et je souhaiterais l'appliquer aussi à 2 voire 3 autres tableaux (b24:bu34 et b40:bu40)

Par ailleurs, est-ce que c'est possible de faire en sorte qu'elle s'exécute automatiquement (c'est une macro qui permet de colorer des cellule lorsque je l'actionne, et je voudrais qu'elle colore les cellules quand on saisit dans la cellule, si c'est possible !)
je vous mets le code :

Merci bcp !


Sub definirremplissage()
'
' definirremplissage Macro
' Macro enregistrée le 04/05/2003 par a
Range("b8:bu18").Select
Range("b8").Activate
Dim lacellule As Range
For Each lacellule In Selection
couleurderemplissage = lacellule
Next lacellule
Range("b8:b8").Select
Range("b8").Activate
'
End Sub

Property Let couleurderemplissage(lacellule As Range)
Dim indexcouleur As Integer
Select Case lacellule.Value

Case "1"
indexcouleur = 36
Case "2"
indexcouleur = 40
Case "3"
indexcouleur = 43
Case "4"
indexcouleur = 33
Case "5"
indexcouleur = 7
Case "A"
indexcouleur = 48
Case "a"
indexcouleur = 48
Case Else
indexcouleur = xlColorIndexNone

End Select
lacellule.Interior.ColorIndex = indexcouleur
End Property