Remplissage tableau sous condition

Tu ouvres la macro (affichage, macro, ouvrir, modifier) et tu enlèves la ligne :

Sheets("Feuil1").Range(Chr(k) & i).Font.ColorIndex = 3

bonjour, escusez moi pour le retard, j'essaye dès que j'ai mon fichier sous la main

Merci