Erreur définie 1004

Bonjour,

Dans la ComboBox quand je veut remplacer le texte la laisser vide l'erreur 1004 apparaît

Voici le fichier

J’aimerai avoir le choix dans la ComboBox de faire une recherche manuellement.

Voici le fichier

Merci

Bonjour

Rajoutes la ligne surlignée

Private Sub ComboBox1_Change()
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    If OffAction = True Then Exit Sub
    TextBox1.Text = Sheets("data").Cells(ComboBox1.ListIndex + 1, 1).Value
    TextBox2.Text = Sheets("data").Cells(ComboBox1.ListIndex + 1, 2).Value
    TextBox3.Text = Sheets("data").Cells(ComboBox1.ListIndex + 1, 3).Value
    TextBox4.Text = Sheets("data").Cells(ComboBox1.ListIndex + 1, 4).Value
    TextBox5.Text = Sheets("data").Cells(ComboBox1.ListIndex + 1, 5).Value

End Sub

Bonsoir Banzai64,

Comme d'hab super .

Merci très sincèrement