Affection de couleur

Bonsoir

une toute petite question

avec

dim b as string

a = InputBox("Nom", "message")

Range("A65536").End(xlUp).Offset(1, 0) = a

comment faire pour la cellule de destination de la variable a contienne une police de couleur rouge ? je pense à font.colorIndex =3

mais je ne vois pas comment l'introduire

Merci pour votre aide

Bonsoir

Une idée

Sub test()
  With Range("A65536").End(xlUp).Offset(1, 0)
    .Value = InputBox("Nom", "message")
    .Font.ColorIndex = 3
  End With
End Sub

Tres bonne idée Banzai du coup meme pas utile d'introduire une variable .Merci à toi