Cordialement,Private Sub Workbook_Open()
With Sheets('Base')
Sheets('Feuil1').ComboBox1.List = .Range('F2:F' _
& .Range('F2').End(xlDown).Row).Value
End With
End Sub
Private Sub ComboBox1_GotFocus()
With Sheets('Base')
ComboBox1.Clear
ComboBox1.List = .Range('F2:F' & .Range('F2').End(xlDown).Row).Value
End With
End Sub