COMBOBOX

Merci F894009
La première question à été résolue

mais voici mon prochain problème :

Private Sub CommandButton1_Click()

Sheets("GESTION").Activate
Dim Insuv As Integer

Insuv = [D1000].End(xlUp).Row + 1
Cells(Insuv, 4) = texBox1.Tex
Cells(Insuv, 5) = texBox2.Tex
Cells(Insuv, 7) = DateValue(texBox3.Value & "/" & texBox4.Value & "/" & texBox5.Value)
Cells(Insuv, 9) = texBox6.Tex
Cells(Insuv, 6) = texBox7.Tex

End Sub

Merci F894009 pour ta réponse

mais, maintenant Erreur définie par l’application ou par l'objet

@Inocent.kRe,
Sur quelle ligne?

bon quand je click sur debloquer
on selectionne ce qui suit en jaune

Insuv = [A1000].End(xIUp).Row + 1

aussi quand je fais passé le cursseur sur toutes les cellues, on me met Erreur définie par l’application ou par l'objet

@Inocent.kRe,
Pas d'erreur chez moi;
Par contre une fois Insuv = [D1000].End(xlUp).Row + 1 , Insuv = [D29].End(xlUp).Row + 1 sur l'image er enfin Insuv = [A1000].End(xlUp).Row + 1
Faudrait vous fixez