Sub MAJ()
With Feuil5 'CodeName de le feuille à traiter
If .DrawingObjects("Bouton 1").Text = "Masquer" Then
.DrawingObjects("Bouton 1").Text = "Afficher"
With .Range("A1", .UsedRange).Rows(1)
.FormulaR1C1 = "=1/(COLUMN()>1)/(R[1]C="""")"
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(xlCellTypeFormulas, 1).EntireColumn.Hidden = True 'masque les colonnes avec 1
.ClearContents
End With
Else
.DrawingObjects("Bouton 1").Text = "Masquer"
.Columns.Hidden = False 'affiche tout
End If
End With
End Sub