Bonjour,
en se servant de ta fusion de cellule même plus besoin de plan.
A affecter à toutes tes formes :
Sub affMasque()
Dim nom As String, pl As Range
nom = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption
Set pl = Rows(1).Find(nom, , xlFormulas, xlWhole)
If Not pl Is Nothing Then
pl.MergeArea.EntireColumn.Hidden = Not pl.MergeArea.EntireColumn.Hidden
End If
End Sub
eric