Bonjour pougnarette,
remplace ton code par celui-ci (les ajouts sont en bleu)
Private Sub UserForm_Initialize()
Dim FFF(), i&
ReDim FFF(0 To 0): FFF(0) = ActiveSheet.Name
For i = 1 To Sheets.Count
If Sheets(i).Name <> FFF(0) Then
If Sheets(i).Name = "Feuil3" Or Sheets(i).Name = "Feuil6" Or Sheets(i).Name = "Feuil8" Then GoTo suite
ReDim Preserve FFF(0 To UBound(FFF) + 1)
FFF(UBound(FFF)) = Sheets(i).Name
suite:
End If
Next i
ListBox1.List = FFF
ListBox1.Selected(0) = True
End Sub
à+
Philippe