'Ci-dessous j'empoie les fonctions personnalisées de pierrejean
ShtR.Cells(DerLiR + 6, 2).FormulaR1C1 = "=compte_mots(""" & VSearch & """ , R2C" & 3 & ":R" & DerLiR & "C" & 13 & ")"
ShtR.Cells(DerLiR + 6, 3).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""PASCAL"")"
ShtR.Cells(DerLiR + 6, 4).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""SYLVIE"")"
ShtR.Cells(DerLiR + 6, 5).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""JOËLLE"")"
ShtR.Cells(DerLiR + 6, 6).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""JEAN-LUC"")"
ShtR.Cells(DerLiR + 6, 7).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""FRÉDÉRIQUE"")"
ShtR.Cells(DerLiR + 6, 8).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""FRÉDÉRIQUE"")"
ShtR.Cells(DerLiR + 6, 9).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""J-FRANÇOIS"")"
ShtR.Cells(DerLiR + 6, 10).FormulaR1C1 = "=cpte_mots_pour(""" & VSearch & """ , R2C" & 2 & ":R" & DerLiR & "C" & 13 & ", ""A PRÉVOIR"")"