Je viens de trouver une solution à mon problème, à forcer de chercher sur le forum, on fini par trouver
Voici la ligne que j'ai écrit pour ce que ça interesse
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2")) Is Nothing Then
Columns("H").Hidden = IIf(Target = "Brown", False, True)
ElseIf Not Intersect(Target, Range("K2")) Is Nothing Then
Columns("Q").Hidden = IIf(Target = "Brown", False, True)
ElseIf Not Intersect(Target, Range("E2")) Is Nothing Then
Columns("G").Hidden = IIf(Target = "Rosette", False, True)
ElseIf Not Intersect(Target, Range("N2")) Is Nothing Then
Columns("P").Hidden = IIf(Target = "Rosette", False, True)
End If
End Sub