Soucis de Format Nombre en texte aprés validation

'--Btn Valider dans Relance Réalisées
Private Sub CommandButton1_Click()
If CDate(DTPicker1.Value) <> Date Then
Dim Rep
Rep = MsgBox("Voulez-vous confimer cette date ou la changer?.", vbYesNo)
If Rep = vbNo Then
'DTPicker1.SetFocus
Exit Sub
End If
End If

If Me.ComboBox2 = "" Then
MsgBox "Attention vous devez saisir le Pourcentage"
Me.ComboBox2.SetFocus
Exit Sub
End If

Dim i As Integer
Dim Derlgn As Integer
With Sheets("Relance_Réalisées")
Derlgn = .Range("A65536").End(xlUp).Row + 1
'.Cells(Derlgn, 1) = Derlgn '- ligne de départ pour
.Cells(Derlgn, 1) = Format(DTPicker1.Value, "dd/mm/yyyy")
.Cells(Derlgn, 2) = TextBox1.Value
.Cells(Derlgn, 3) = TextBox2.Value
.Cells(Derlgn, 4) = TextBox3.Value '
.Cells(Derlgn, 5) = TextBox4.Value
.Cells(Derlgn, 6) = TextBox5.Value
.Cells(Derlgn, 7) = Format(TextBox6.Value, "# ##0.00 €") 'Montant Facture
.Cells(Derlgn, 8) = TextBox7.Value
.Cells(Derlgn, 9) = TextBox8.Value
.Cells(Derlgn, 10) = Format(TextBox9.Value, "# ##0.00 €") 'Accompte versé
.Cells(Derlgn, 11) = ComboBox2.Value
.Cells(Derlgn, 12) = Format(TextBox10.Value, "# ##0.00 €") 'Reste Dû
.Cells(Derlgn, 13) = Format(TextBox11.Value, "# ##0.00 €") 'Montant des frais
.Cells(Derlgn, 14) = Format(TextBox12.Value, "# ##0.00 €") ' Total Frais + Reste Dû

.Cells(Derlgn, 15) = TextBox13.Value 'relance 1
'.Cells(Derlgn, 15) = TextBox14.Value 'relance 2
'.Cells(Derlgn, 15) = TextBox15.Value 'relance 3
.Cells(Derlgn, 16) = ComboBox1.Value 'pointé
End With

TextBox11.Value = "" 'Montant des Frais
TextBox12.Value = "" 'Total Frais + Reste Dû

TextBox13.Value = "" 'Relance1
'TextBox14.Value = "" 'Relance2
'TextBox15.Value = "" 'Relance3

ComboBox2.Value = "" 'Cbx %
End Sub

Cliquez pour agrandir...