Private Sub UserForm_Initialize()
Dim Lg&, i&, Somme#, Sh As Worksheet
Set Sh = Sheets("Feuil1")
Lg = Sh.Range("A" & Rows.Count).End(xlUp).Row
With Me.ListBox1
.ColumnWidths = "90;80;150"
.RowSource = "Feuil1!A2:C" & Lg
End With
For i = 2 To Lg
If Not IsEmpty(Sh.Cells(i, 3)) Then Somme = CCur(Somme) + CCur(Sh.Cells(i, 3))
Next i
Me.Label1 = Format(CCur(Somme), "#,##0.00€")
End Sub