Affichage et masquage d'onglet sous condition

Salut le forum

J'ai un fichier de 15 feuilles pour la gestion de mes factures et devis.

Le problème est que je ne souhaite pas que toutes les feuilles s'affichent.

En fonction du choix opéré dans le combobox1, je souhaite que les feuilles nécessaires s'affichent et que les autres soient masquées.

DEVIS

Ex1: si dans combobox1, je choisis Devis1, les feuilles à afficher devront être :

• DEVIS_1
• CARACTER_TECH_1

• DEVIS_2
• CARACTER_TECH_2

• DEVIS_3
• CARACTER_TECH_3

FACTURE

Ex1: si dans combobox1, je choisis Facture1, les feuilles à afficher devront être :

• Facture_1
• BL_1

• Facture_2
• BL_2

• Facture_3
• BL_3

Je reste à votre disposition pour plus d'éclaircissement

A Ajuster:

Private Sub ComboBox1_Change()
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Facturier" Then
ws.Visible = False
End If
Next ws
Select Case ComboBox1.Value
Case "Devis1"
Sheets("Devis_1").Visible = True
Sheets("Caracter_Tech_1").Visible = True
Case "Devis2"
Sheets("Devis_2").Visible = True
Sheets("Caracter_Tech_2").Visible = True
End Select
End Sub

Salut EngueEngue

Merci pour ta solution.

Elle me convient parfaitement.