Bonjour, la solution est trouvé avec l'aide de sylvanu.
Sub Remplit()
DL = [A65500].End(xlUp).Row
Set Plage = Range("A13:A" & DL)
For L = 4 To 9
Cells(L, "B") = RenvoiResultat(Cells(L, "A"), Plage)
Cells(L, "C") = CompterCouleur(Plage, Cells(L, "A"))
Next L
Rows("4:9").EntireRow.AutoFit...