Format monetaire

bonjour a tous

le code suivant semble fonctionner

Private Sub ClearTextBox()
 ' Efface toutes les valeurs contenues dans les contrôles TextBox du frame nommé frmProjet
 Dim ctrl As Control
 Dim cout As Double
 For Each ctrl In Me.frmProjet.Controls
  If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = ""
 Next
 ' Met au format monetaire toutes les valeurs contenues dans les contrôles TextBox du frame nommé frmProgression
 For Each ctrl In Me.frmProg.Controls
  If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = Format(cout, "Currency")
 Next
End Sub

Mais des que j,essaie d'écrire les valeurs dans une feuille excel ca ne passe pas

les cellules de la feuille restent en mode texte, donc je ne peux rien faire avec


Merci de votre aide