Option Explicit
Dim derlign As Integer
Dim plagelist As String
Private Sub UserForm_Initialize()
derlign = Sheets('feuil1').Range('a65536').End(xlUp).Row
plagelist = Sheets('feuil1').Range('a7:a' & derlign).Address
ComboBox1.RowSource = 'feuil1!' & plagelist
End Sub