Function Pollux(Feuille)
Application.Volatile
T = Array( _
"Ajout d'un utilisateur", _
"Retirer un article d'un utilisateur", _
"Retrait d'un utilisateur", _
"Demande d'augmentation de stock", _
"Changement de taille article" _
)
For i = 0 To UBound(T)
Pollux = Pollux + Application.CountIf(Sheets(Feuille).Columns(4), T(i))
Next i
End Function