Private Sub UserForm_Initialize()
Dim a As Integer, sh As Worksheets
Dim ListeNonOK As String
ListeNonOK = "non ok"
For a = 1 To Sheets.Count
If InStr(1, ListeNonOK, Sheets(a).Name, vbTextCompare) = 0 Then
ListBox1.AddItem Sheets(a).Name
End If
Next
End Sub