Bonjour
Code à essayer
Range("M5").Value = Mid(Me.Label15, 5)
Si ok, merci de cloturer le fil en cliquant sur le v vert à coté du bouton EDITER lors de ta réponse
Crdlt
Edit : ou ceci, mieux je pense...
With Range("M5")
.Value = Val(Mid(Me.Label1, 5))
.NumberFormat = "# ##0 €"
End with