[COLOR=DarkSlateGray][B]Private Sub UserForm_Initialize()
Dim x()
Sheets("Sorties Effectuées").Visible = True
Sheets("Sorties Effectuées").Unprotect
x = [Sorties].Value
If UBound(x, 2) > 2 Then ReDim Preserve x(1 To 1, 1 To UBound(x, 2) - 2)
ComboBox1.Column = x
End Sub[/B][/COLOR]