Bonjour le forum,

J'ai mis en place le code suivant. Sur la première parte qui est censée cacher toutes les feuilles autres que celle qui est active et la feuille "Accueil".
Hors j'ai un message d'erreur 13 - Incompatibilité de type, cela concerne la ligne en gras et soulignée (ligne 10)
Je n'arrive pas à trouver la solution, pouvez-vous m'éclairer s'il vous plait ?
Je vous en remercie par avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CmbVille_Change()
Dim ws As Worksheets
Application.ScreenUpdating = False

    Sheets("Arch_Ville").Visible = True
    Sheets("Arch_Ville").Activate
    Range("A3").Select
        
'Commencer une boucle sur toutes les feuilles du classeur
    For Each ws In ThisWorkbook.Worksheets
'Vérifie le nom de chaque feuille du classeur
        If ws.Name <> ThisWorkbook.ActiveSheet.Name And Worksheets("Accueil") Then
'Masquer les feuilles
        ws.Visible = xlSheetVeryHidden
        End If
'On passe à la feuille suivante
    Next ws
        
            With ListVille
                .Clear
                .ColumnCount = 3
                .Width = 516
                .ColumnWidths = "235;235;46"
                
                    If CmbVille <> "" Then
                    For Ligne = 7 To 6000
                    
                        If UCase(Cells(Ligne, 6)) Like "*" & UCase(CmbVille) & "*" Then
                            .AddItem Cells(Ligne, 6)
                            .List(.ListCount - 1, 1) = Cells(Ligne, 8)
                            .List(.ListCount - 1, 2) = Ligne
                        End If
                    Next
                    End If
            End With
            
Application.ScreenUpdating = True
End Sub