Ok parfait
Voici le code pour alimenter la combobox 2
Private Sub ComboBox1_Change()
Dim c As Range
Dim tablo As Collection
Dim item
Dim i As Byte
For i = 2 To 5
Me.Controls("Combobox" & i).Clear
Next i
'Alimentation combobox2
Set tablo = New Collection
With Donnees
On Error Resume Next
For Each c In .ListObjects("Tab_Data").ListColumns(2).DataBodyRange
If c.Offset(0, -1) = Me.ComboBox1.Value Then
tablo.Add c.Value, CStr(c.Value)
End If
Next c
On Error GoTo 0
For Each item In tablo
Me.ComboBox2.AddItem item
Next item
End With
End Sub
Dites moi si cela fonctionne