Private Sub ScrollBar1_Change()
Dim col%
col = Application.Match("SEMAINE " & [C3], Rows(2), 0)
Columns("E:AR").Hidden = True
Columns(col - 1).Resize(, Cells(2, col).MergeArea.Columns.Count + 2).Hidden = False
With Sheets("Calcul par semaine")
col = Application.Match("SEMAINE " & [C3], .Rows(2), 0)
.Columns("A:BT").Hidden = True
.Columns(col - 1).Resize(, .Cells(2, col).MergeArea.Columns.Count + 2).Hidden = False
End With
End Sub