Merci encore Skoobi!

Le problème c'est que les montants désirés sont dans une autre colonne.

J'ai donc essayé ceci (en gras) mais cela ne fonctionne pas !!

Private Sub Valider_Click()
Dim Derlig As Long
Derlig = Range("A700").End(xlUp).Offset(1, 0).Row
Range("A" & Derlig).Value = NumConvention
Range("B" & Derlig).Value = ChargeOperations
Range("C" & Derlig).Value = Nom
Range("D" & Derlig).Value = NumAttributaire
Range("E" & Derlig).Value = Dept
Range("F" & Derlig).Value = Travaux
Range("G" & Derlig).Value = Nature
Range("H" & Derlig).Value = DateDecision
Range("K" & Derlig).Value = NumberFormat("# ###", MontantTrav.Value)
Range("L" & Derlig).Value = NumberFormat("# ###", MontantAide.Value)
Range("M" & Derlig).Value = TauxAide
Range("O" & Derlig).Value = NumberFormat("# ###", MontantAvance.Value)
Range("P" & Derlig).Value = TauxAvance

If IsDate(DateDecision.Value) Then
    If opt24.Value Then
    Range("J" & Derlig).Value = DateAdd("m", 24, DateDecision.Value)
  ElseIf opt36.Value Then
    Range("J" & Derlig).Value = DateAdd("m", 36, DateDecision.Value)
  ElseIf opt48.Value Then
    Range("J" & Derlig).Value = DateAdd("m", 48, DateDecision.Value)
  End If
End If
 
et dans ma feuille, j'ai ceci :

Private Sub Nouvconvention_Click()
'Ouvrir un formulaire de saisie
With UserForm1
    .NumConvention.Text = ""
    .Nature.Text = ""
    .Nom.Text = ""
    .ChargeOperations.Text = ""
    .NumAttributaire.Text = ""
    .Dept.Text = ""
    .DateDecision.Text = ""
    .Travaux.Text = ""
    .MontantTrav.Text = ""
    .MontantAide.Text = ""
    .TauxAide.Text = ""
    .MontantAvance.Text = ""
    .TauxAvance.Text = ""
    End With
UserForm1.Show
End Sub

et dans ma colonne "A" ce sont également des chiffres !

Que me manque t-il ? Qu'est-ce qui bloque ???
Merci d'avance.