Cacher/afficher colonnes en fonction de la valeur d'une cellule

Bonjour, sur le fichier ci-joint j'aimerait cacher uniquement les colonnes qui ont la valeurs "aucun" sur ma première feuille (c'est uniquement une question d’esthétique) pour avoir autant de cas qu'il y a de bonnes valeurs. J'aimerait un tableau modulable en somme. J'ai essayé la mise en forme conditionnel mais sans grand succès, alors je me suis tourné vers la VBA, mais je ne sais absolument pas quels fonctions utiliser pour arriver au résultat voulut.

j'apprécierais vraiment qu'une âme charitable me vienne en aide

Bonjour Maaf2020

Dans ton VBA project (ALT+F11), il faut aller dans le code de la feuille concernée

Voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Cel As Range, RngCol As Range
  ' Si changement dans la cellule E10
  If Target.Address = "$E$10" Then
    ' Définir la plage à scruter
    Set RngCol = Range("E13:M13")
    ' Commencer par afficher toutes les colonnes
    RngCol.EntireColumn.Hidden = False
    ' Pour chaque cellule
    For Each Cel In RngCol
      If Cel.Value = "aucun" Then Cel.EntireColumn.Hidden = True
    Next Cel
  End If
End Sub

Voici le fichier avec le code

@+

waooo ça marche nickel!! merci beaucoup