Merci pour votre aides.
Si on peut m'aider encore, j'ai résolu la conversion texte en nombre.
Mais lors de la saisie dans mon formulaire pour Gazinput et Gazrecup il le "." ne fonctionne pas uniquement la " ,".
Sheets("Declaration").Activate
Range("a1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = "209"
ActiveCell.Offset(0, 1).Value = "3097253"
ActiveCell.Offset(0, 2).Value = TxtDate
ActiveCell.Offset(0, 3).Value = TxtOr
ActiveCell.Offset(0, 4).Value = TxtPlaque
ActiveCell.Offset(0, 5).Value = TxtNom
ActiveCell.Offset(0, 6).Value = txtCp
ActiveCell.Offset(0, 7).Value = txtVille
ActiveCell.Offset(0, 8).Value = "R134"
ActiveCell.Offset(0, 9).Value = CDbl(Me.txtgazinput)
ActiveCell.Offset(0, 10).Value = CDbl(Me.txtGazrecup)