Bonjour,
Tu peux créer une procédure et l'associer à un bouton ou un raccourci clavier
Voici un bout de code dont tu peux t'inspirer
Sub CouleurCelluleModif(C As Long)
'********************************
'* Valeurs de C pour ColorIndex *
'* 0=Neutre *
'* 1=Noir *
'* 2=Transparent *
'* 3=Rouge *
'* 4=Vert *
'* 5=Bleu foncé *
'* 6=Jaune *
'* 7=Magenta *
'* 8=Bleu ciel *
'* 9=Marron *
'* 10=Vert foncé *
'********************************
'********************************
ActiveCell.Interior.Colorindex = C
End Sub
Tu peux en parallèle créer une procédure qui remet la valeur "Neutre" en cas d'erreur.
Tu peux modifier la procédure pour qu'elle ne colorie que s'il s'agit bien d'une date avec "If IsDate...."
Bon courage !