Private Sub UserForm_Initialize()
Dim FFF(), i& ' & = Long
ReDim FFF(0 To 0): FFF(0) = ActiveSheet.Name
For i = 1 To Sheets.Count
If Sheets(i).Name <> FFF(0) And Left(Sheets(i).Name, 1) <> "_" Then
ReDim Preserve FFF(0 To UBound(FFF) + 1)
FFF(UBound(FFF)) = Sheets(i).Name
End If
Next i
ListBox1.List = FFF ' Transfert du tableau dans la ListBox1
ListBox1.Selected(0) = True ' Sélectionne le premier de la ListBox1
End Sub