Liste déroulante qui masque et affiche des colonnes

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Noms As Name
'ne fonctionne qu'avec la cellule C3 :
If Target.Address <> "$C$3" Then Exit Sub
'Boucle sur tous les noms définis du classeur :
For Each Noms In ThisWorkbook.Names
  If Noms.Name = Target.Value Then
    Range(Noms.Name).EntireColumn.Hidden = False
  ElseIf Est_Une_Colonne(Noms.Value) Then
    Range(Noms.Name).EntireColumn.Hidden = True
  End If
Next
End Sub


Function Est_Une_Colonne(Adresse As String) As Boolean
Dim suffix As String, i As Byte
Est_Une_Colonne = True
suffix = Split(Adresse, "!")(1)
For i = 1 To Len(suffix)
  If IsNumeric(Mid(suffix, i, 1)) Then Est_Une_Colonne = False: Exit Function
Next i
End Function