Function PersoSum(ParamArray Cellules1())
Dim i As Integer
Dim cell As Range
Application.Volatile
i = 1' pour mettre un point d'arret
For i = 0 To UBound(Cellules1)
'MsgBox (Cellules1(i).Address)
For Each cell In Range(Cellules1(i).Address)
PersoSum = PersoSum + cell.Value
Next cell
Next i
End Function