Bonsoir Ilino, bonsoir le forum,
Peut-être comme ça :
Private Sub Workbook_Open()
Dim Sh As Worksheet
Sheets("Accueil").Visible = -1
Cache ("Accueil")
ActiveSheet.ComboBox1.Clear
For Each Sh In Sheets
If Sh.Name <> "Accueil" Then
If InStr(Sh.Name, ".") <> 0 Then
If IsNumeric(Split(Sh.Name, ".")(0)) = True And IsNumeric(Split(Sh.Name, ".")(1)) = False Then _
ActiveSheet.ComboBox1.AddItem Sh.Name
End If
End If
Next Sh
ActiveSheet.ComboBox1 = ""
End Sub