Dim i As Long, ChoixCol As String, Deb As Long
ChoixCol = InputBox("indiquez la lettre de la colonne dans laquelle vous recherchez un élément")
If ChoixCol = "" Then Exit Sub
Deb = 2
For i = 2 To Range(ChoixCol & "65536").End(xlUp).Row + 1
If Range(ChoixCol & i).Value = "" Then
Range(ChoixCol & i).Formula = "=SUM(" & ChoixCol & Deb & ":" & ChoixCol & i - 1 & ")"
Deb = i + 1
End If
Next i