Bonjour,
à tester,
Sub MasquerColonne()
Dim dt1 As Integer, dt2 As Integer
dt1 = Application.Match(Range("B2"), Rows("$4:$4"), 0) + 1
dt2 = Application.Match(Range("B3"), Rows("$4:$4"), 0) - 1
Range(Cells(1, dt1), Cells(1, dt2)).EntireColumn.Hidden = True
End Sub