Ton code est pas mal, mais tu as fait une erreur quand tu sélectionnes les cases à mettre en couleur. J’aurais mis ça:
If ActiveCell.Offset(0, 3).Value = "Vrai" Then
Range(ActiveCell, ActiveCell.Offset(0, 15)).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
Voila. Tu n’étais pas loin de la réponse. Par contre un conseil, évite les offset(0,0). Ca sert à rien, ca prend du temps et c’est pas tres propre.
Pense aussi à l’aide de visual basic. Elle est pas mal faite, et on trouve facilement des réponses à des questions dans ce genre, en suivant quelques liens.
Mais c’est clair, il vaut mieux esposer ton problème rapidement que de galérer sur un truc un peu biz’.