Function SPart(Evenement)
'Création des variables
Dim Somme As Long, i%
Somme = 0
NF = Array("ONF_COFOR", "CNPF_Fran", "Agri", "INRA", "AutRECH", "Enseigt", "PNR-Envt", "Décideurs", "Presse", "Etranger", "Coop-Exp", "Bois-Pépin", "CETEF", "Autre")
For i = LBound(NF) To UBound(NF)
Somme = Somme + Application.Sum(Sheets(NF(i)).Range(RefCell(Evenement)).EntireColumn)
Next i
SPart = Somme
End Function