patrice78

Bonjour Christiant,

Je ne vois pas trop pourquoi çà ne marche pas.
Essaye

Private Sub CommandButton1_Click()
derlig = Range('a65536').End(xlUp).Row + 1
Range('A' & derlig) = TextBox1
Range('D' & derlig) = CDbl(Val(TextBox2))
End Sub

A+