Sub test()
[A1:H1] = Array(1, "a", 2, "b", "=TODAY()", 3, "Staple", 1600)
[J1] = "=SUMPRODUCT(--ISNUMBER(RC[-9]:RC[-2]))": [K1] = "'<- Valeur numérique"
[J2] = "=COUNTIF(R[-1]C[-9]:R[-1]C[-2],""*"")": [K2] = "'<- Valeur texte"
[A1,C1,E1:F1,H1,J1].Interior.Color = vbYellow
[B1,D1,G1,J2].Interior.Color = vbGreen
End Sub