Sub Feuil2_Bouton1_QuandClic()
Dim rep As Variant
Dim rep1 As string
Dim c As Range
rep = Split(ThisWorkbook.Path, '\')
rep1 = rep(UBound(rep))
With Me.ComboCDF
.ColumnCount = 4
.ColumnWidths = '150;0;0;0'
For Each c In Sheets('CDF').Range('F2:F' & Sheets('CDF').Range('F65536').End(xlUp).Row)
If c = rep1 Then
.AddItem c
.List(.ListCount - 1, 1) = c.Offset(0, -1)
.List(.ListCount - 1, 2) = c.Offset(0, -2)
.List(.ListCount - 1, 3) = c.Offset(0, -3)
End If
Next c
End With
End Sub