Private Sub UserForm_Initialize()
On Error Resume Next
For i = 1 To Worksheets.Count - 2
ListeFeuille.AddItem Worksheets(i).Name
If Worksheets(i).Application = False Then
vCpt = vCpt + 1
End If
Next i
vNbF = i - vCpt - 2
ListeFeuille.Selected(Month(Date) - 1) = True
End Sub