Salut,
Un début de modif à faire pour reprendre les valeur des textBox :
Private Sub ComboBox1_Change()
Dim numLigne As Integer
numLigne = Me.ComboBox1.Value
Me.ColonneA_ = Me.ComboBox1.Value
Me.ColonneB_ = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, ThisWorkbook.Sheets("Feuil1").Range("A:H"), 2, False)
Me.ColonneC_ = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, ThisWorkbook.Sheets("Feuil1").Range("A:H"), 3, False)
Me.ColonneD_ = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, ThisWorkbook.Sheets("Feuil1").Range("A:H"), 4, False)
Me.ColonneE_ = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, ThisWorkbook.Sheets("Feuil1").Range("A:H"), 5, False)
Me.ColonneF_ = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, ThisWorkbook.Sheets("Feuil1").Range("A:H"), 6, False)
Me.ColonneG_ = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, ThisWorkbook.Sheets("Feuil1").Range("A:H"), 7, False)