Dans ce cas il te faut faire un test pour savoir s'il ya plus d'une ligne et adapté ton code en conséquence
par exemple ..
Code:
Private Sub UserForm_Initialize()
With Sheets("Feuil1")
If Range("B7").Value = "" Then
ComboBox1.RowSource = "Feuil1!B6"
Else
ComboBox1.RowSource = "Feuil1!B6:B" & Sheets("Feuil1").Cells(1, 1).End(xlDown).Row
End If
End With
End Sub