j'ai commencé par faire le code suivant mais j'ai une erreur d'éxecution 13 et j'arrive pas à la regler
Private Sub CommandButton1_Click()
Dim n As Variant
n = InputBox("entrer le nombre de placements")
Sheets("feuil1").Range("a1").Value = "numero de placement"
Sheets("feuil1").Range("b1").Value = "capital"
Sheets("feuil1").Range("c1").Value = "taux"
Sheets("feuil1").Range("d1").Value = "date de placement"
Sheets("feuil1").Range("e1").Value = "date échéance"
derligne = Sheets("feuil1").Range("A456541").End(xlUp).Row + 1
For i = 1 To n
Cells(derligne, 1) = i
Cells(derligne, 2) = TextBox1.Value
Cells(derligne, 3) = TextBox2.Value
Cells(derligne, 4) = TextBox5.Value
Cells(derligne, 5) = TextBox6.Value
Next
End Sub