Sub Masquer()
Dim co As ChartObject
For Each co In ActiveSheet.ChartObjects
co.Placement = 2
Next
[B:B].Replace 0, "m", xlWhole
[B:B].SpecialCells(xlCellTypeConstants, 2).EntireRow.Hidden = True
End Sub
Sub Afficher()
[B:B].Replace "m", 0, xlWhole
Rows.Hidden = False
End Sub