Private Sub Worksheet_Activate()
Dim o As Object, col As Byte
Application.ScreenUpdating = False
For Each o In Feuil1.OLEObjects 'Feuil1 => CodeName
If o.Name Like "CheckBox*" Then
col = Application.Match(o.Object.Caption, Rows(1), 0)
Columns(col).Hidden = Not o.Object.Value
End If
Next
Application.Goto [A1], True 'cadrage
End Sub