Bonjour,
Il me semblait que tu avais déjà la solution dans le classeur de ton précédent message
Sub Trop_click()
Dim Lb1 As Double
Dim Lb2 As Double
Lb1 = CDbl(Label7.Caption)
Lb2 = CDbl(Label8.Caption)
If Lb2 <> 0 Then TextBox1 = Format(Lb1 / Lb2, "#,##0.00 €")
End Sub
A+