utilsfr

Essaie ce code événementielle
ici la liste de validation est en C4

Private Sub Worksheet_Change(ByVal Target As Range)
Dim maselection As String
maselection = Range("c4").Value
Select Case maselection
Case 1
Cells.EntireColumn.Hidden = False 'affichage de toutes les colonnes
Columns("F:F").EntireColumn.Hidden = True 'si 1 est séléectionner masquage de la colonne F
Case 2
Cells.EntireColumn.Hidden = False 'affichage de toutes les colonnes
Columns("G:G").EntireColumn.Hidden = True 'si 2 est séléectionner masquage de la colonne F
Case 3
Cells.EntireColumn.Hidden = False 'affichage de toutes les colonnes
Columns("H:H").EntireColumn.Hidden = True 'si 3 est séléectionner masquage de la colonne F

Case Else
End Select
End Sub

et ainsi de suite

Cordialement
ROBERT René