Problème d'erreur 424

Bonjour,

Je suis en train de coder une Macro pour Excel qui colorie en rouge et écrit un message dans la cellule passé en paramètre par un Range. Quand je compile ma macro d'essai, Je reçois un message d'erreur me disant qu'un objet est requis (à priori en paramètre de ma macro Cel_rouge)... Est ce que quelqu'un pourrait m'aider?

Option Explicit

 Sub Cel_rouge(cel As Range)
    With cel.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    cel.Font.ColorIndex = 15
    cel.FormulaR1C1 = "Ecrire ici !"
End Sub

Sub essai()
Dim a As Range
 
Set a = Range("A50")
Cel_rouge (a)          'Il me met erreur 424 sur cette ligne
End Sub