Problème reglé.
Dans le code, j'ai remplacer ceci :
Sheets("PLANNING").Range("AH8").Formula = "=SIERREUR(NB.SI(AH$" & Preligne & ":AH$" & DerPLANNING & ",""O"")+NB.SI(AH$" & Preligne & ":AH$" & DerPLANNING & ",""O2"")+NB.SI(AH$" & Preligne & ":AH$" & DerPLANNING & ",""OW"")+NB.SI(AH$" & Preligne & ":AH$" & DerPLANNING & ",""OW2""),0)"
Par :
Sheets("PLANNING").Range("AH8").Formula = "=IFERROR(COUNTIF(AH$" & Preligne & ":AH$" & DerPLANNING & ",""O"")+COUNTIF(AH$" & Preligne & ":AH$" & DerPLANNING & ",""O2"")+COUNTIF(AH$" & Preligne & ":AH$" & DerPLANNING & ",""WO"")+COUNTIF(AH$" & Preligne & ":AH$" & DerPLANNING & ",""WO2""),0)"
Merci.