Private Sub CommandButton32_Click() 'Bouton Effacer Ligne
Total = 0
If ListBox1.ListCount > 0 Then
Feuil2.Rows(ListBox1.ListIndex + 2).Delete shift:=xlUp
Me.ListBox1.RemoveItem Me.ListBox1.ListIndex
End If
With Sheets("Temp") 'Ici
dlf = .Range("a" & Rows.Count).End(xlUp).Row
If dlf > 1 Then
For i = 2 To dlf
Total = Total + .Range("d" & i)
Next i
End If
End With
TextBox4 = Format(Total, "Currency") 'Mise a jour
End Sub