Bug dans mon code...

With Sheets("articles")
Dim i As Long 'déclare la variable col (ligne)

For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
    If .Cells(i, 1).Value = Me.ComboBox1.Value Then
        ListBox1.AddItem .Cells(i, 2).Value
    End If
Next
End With

Private Sub ComboBox1_Change()

    Me.TextBox1.Text = ""
    Me.TextBox2.Text = ""
    Me.TextBox3.Text = ""
    Me.TextBox4.Text = ""
 
 If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
    Me.TextBox1 = Me.ComboBox1 'On alimente les données correspondant à la ligne
    Me.TextBox2 = Worksheets("fournisseurs").Range("C" & Me.ComboBox1.ListIndex + 1)
    Me.TextBox3 = Worksheets("fournisseurs").Range("D" & Me.ComboBox1.ListIndex + 1)
    Me.TextBox4 = Worksheets("fournisseurs").Range("E" & Me.ComboBox1.ListIndex + 1)
    
    With Sheets("articles")
    Dim i As Integer 'déclare la variable col (ligne)

    i = Me.ComboBox1.ListIndex  'définit la colonne qui allimentera la ListBox1
'alimentation de la ListBox1
    Dim Plage As Range, Cel As Range
    For Each Cel In Feuil1.Range("A:A").SpecialCells(xlCellTypeConstants)
      If Cel = ComboBox1 Then
        If Plage Is Nothing Then
          Set Plage = Cel.Offset(0, 1)
          Else
          Set Plage = Application.Union(Plage, Cel.Offset(0, 1))
        End If
      End If
    Next
    Me.ListBox1.RowSource = Plage.Address
    End With
    
End Sub