Bonjour abricot, bonjour le forum,
Essaie comme ça (à placer dans le composant VBA Feuil6 (PARAMETRE))
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OS As Worksheet
If Application.Intersect(Target, Range("K2:K6")) Is Nothing Then Exit Sub
Cancel = True
Set OS = Worksheets("SAISIE")
OS.Columns(7).Hidden = Range("K2").Value = "B"
OS.Columns(2).Hidden = Range("K3").Value = "Non"
OS.Columns(3).Hidden = Range("K4").Value = "Non"
OS.Columns(4).Hidden = Range("K5").Value = "Non"
OS.Columns(5).Hidden = Range("K6").Value = "Non"
End Sub