Function total(zone As Range)
'pour chaque élément de la zone: cad: pour chaque cellule de la zone passée en paramètres
For Each ele In zone
'si élément non vide et différent de0
If ele <> "" And ele <> 0 Then
'concaténation du résultat de la fonction avec le prénom qui se situe sur la meme ligne que l'élément , mais en colonne B
'puis le caractère : et la valeur de l'élément lui meme
total = total & Range("B" & ele.Row) & ": " & ele & " "
End If
Next
End Function