Combobox et insertion de ligne

bonjour à tous,
j' ai une combobox qui affiche les valeurs de ma colonne A (ce sont des personnes)
ce que je voudrais, c'est que lorsque je choisi une personne, une ligne s'insere automatiquement à la ligne d'en dessous
merci d'avance

je place la valeur sélectionnée dans la dernière ligne de la colonne "B" (les valeurs sont en "A") lorsque l'on quitte la combobox :

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox1_LostFocus() If ComboBox1 <> "" Then With Range("B" & Rows.Count).End(xlUp) .Value = ComboBox1.List(ComboBox1.ListIndex, 0) End With End If End Sub

---

Code:

---

1 2 3

Private sub combobox1_change() sheets("feuil1").rows(combobox1.listindex + 3).insert '3 à adapter End Sub

---

Edit: j'ai supposé que tes données débutent en A2 (pour le choix de 3)

merci je vais essayer de l'adapter
je voudrais qu'en fonction de la valeur de mon combobox, il se place sur cette valeur , puis de décale d'une ligne et en insere une