Private Sub UserForm_Initialize()
'Déclarations des variables
Dim vArrF, i As Byte
'On place le nom des feuilles dans un tableau
ReDim vArrF(1 To Worksheets.count)
For i = 1 To UBound(vArrF)
vArrF(i) = ThisWorkbook.Sheets(i).Name
Next
'on remplit le ComboBox avec le tableau vArr
ComboBox2.List = vArrF
'on supprime le premier élément dans le ComboBox
'qui correspond à la feuille Acceuil
ComboBox2.RemoveItem 0
End Sub