private sub worksheet_change(byval target as range)
"dim r as range: set r = intersect(target, range(""A1"")) 'à adapter"
if not r is nothing then
"    range(""B:K"").columns.hidden = true"
    select case r.value
"        case ""DSV airfreight"": range(""B:D"").columns.hidden = false"
"        case ""FedEx"": range(""E:G"").columns.hidden = false"
"        case ""Ferrari"": range(""H:K"").columns.hidden = false"
"        case ""CHECK"": range(""B:K"").columns.hidden = false"
        case else:
    end select
end if
end sub