Microsoft 365 cacher colonne selon langue dans liste deroulante

[evat27]

Bonsoir

Je n'arrive pas à cacher des colonnes en VBA selon le résultat dans une liste déroulante,
J'ai trouvé des choses sur le forum mais je n'arrive pas à l'appliquer...
En effet j'ai une liste déroulante avec trois langues ANGLAIS FRANCAIS ALLEMAND
J'aimerais si possible...que si je choisit par exemple anglais (E), il faut que les colonnes (C&D) en ALLEMAND et Français soient caches, Si je je choisis Allemand il faut que les colonnes en ANGLAIS et Français soient caches...ecc ecc
j'arrive en faire une mais pas les autres....

si vous pouvez m'aider ....UN ENORME MERCI!!Très bonne soirée

 

[vgendron]

Hello

ton fichier en PJ

 

[sylvanu]

Bonsoir,
@vgendron,
Il vaut mieux passer par un Lcase car le "ç" de Français ne passe pas en Ucase :

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns(3).EntireColumn.Hidden = Not LCase([A1]) = "allemand"
    Columns(4).EntireColumn.Hidden = Not LCase([A1]) = "français"
    Columns(5).EntireColumn.Hidden = Not LCase([A1]) = "anglais"
End Sub