Salut
Avec une petite interrogation, chuis pas chuoure :
Un truc du style (Peu être trop simple, lol):
If Application.Version = '10.0' Then
TextBox1.Value = Format(UserForm1, '# ### ##0.00 €')
Else
TextBox1.Value = Format(UserForm1, 'autre format')
End If
Salut, G'Claire