TABLE_MaTable.FormuleSupprimeTout()
nLigne est entier
nLigne = TABLE_MaTable.COL_Num.FormuleAjoute("Moyenne positive", ProcInit, ProcAjout, ProcFin)
// Changement de la couleur de fond de la ligne du calcul personnalisé
COL_Num[nLigne].CouleurFond = RougeClair

nCompteur est entier
PROCÉDURE INTERNE ProcInit() 
	nCompteur = 0
	RENVOYER 0
FIN

PROCÉDURE INTERNE ProcAjout(Accumulateur, ValeurCol) 
	// Ignore les négatifs ou NULL
	SI (ValeurCol <= 0) RENVOYER Accumulateur
	nCompteur++
	RENVOYER Accumulateur + ValeurCol
FIN
PROCÉDURE INTERNE ProcFin(Accumulateur) 
	SI nCompteur = 0 ALORS RENVOYER 0
	// Calcul de la moyenne
	RENVOYER  Accumulateur/nCompteur
FIN