Sub FonctCalSom(ByVal col As Integer)
'Initialisation de la boucle
Dim i As Integer
i = 2
'Boucle sur la liste de cellule
Do While (Cells(i, 1).Value <> "")
If Cells(i, 1).Value <> "" Then
Set MaPlage = Range("b3:b6")
Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
Cells(2, 2).Formula = Maformule
Set MaPlage = Range("c3:c6")
Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
Cells(2, 3).Formula = Maformule
Else
Cells(i, 2).Value = ""
End If
i = i + 1
Loop
End Sub