Dim NbreFeuil As Integer
CbxAnnée.Clear
For NbreFeuil = 1 To Sheets.Count
If Sheets(NbreFeuil).Name <> "Extraction" Or Left(Sheets(NbreFeuil).Name, 5) = "Graph" Then
If Sheets(NbreFeuil).Cells(1, 1) = "Date" Then
CbxAnnée.AddItem Sheets(NbreFeuil).Name
End If
End If
Next NbreFeuil