Sub Masquer()
Application.ScreenUpdating = False
With Sheets("NO RC").[F1008:DD1008]
.EntireColumn.Hidden = False
.Replace "2)", "1/0)", xlPart
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Hidden = True
.Replace "1/0)", "2)"
End With
End Sub
Sub Supprimer()
Application.ScreenUpdating = False
With Sheets("NO RC").[F1008:DD1008]
.Replace "2)", "1/0)", xlPart
.EntireColumn.UnMerge 'défusionne
.EntireColumn.Sort .Cells, Orientation:=2 'tri horizontal pour accélérer
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Delete
.Replace "1/0)", "2)"
End With
End Sub