Sub Worksheet_Activate()
Dim Tablo, i%
Application.ScreenUpdating = False
Tablo = Sheets("Datas").[A1].CurrentRegion
For i = 2 To UBound(Tablo)
If Tablo(i, 2) = "X" Then Flag = False Else Flag = True
On Error Resume Next
ActiveSheet.Shapes(Mid(" " & Tablo(i, 1), 2)).Visible = Flag
Next i
End Sub