Sub Macro1()
Dim pt As Range 'déclare la variable pt (Plage Tableau)
Dim pc As Range 'déclarfe la variable pc (Plage des Cellules)
'si la cellule active est fusionnée et contient un nombre différent de trois cellules, message, sort de la procédure
If ActiveCell.MergeArea.Cells.Count <> 3 Then MsgBox "Sélectionnez le numéro en haut à gauche du Tableau !": Exit Sub
Set pt = ActiveCell.Resize(34, 10) 'définit la plage pt du tableau
'définit la plage des cellules pc
Set pc = Application.Union(pt.Cells(5, 2), pt.Cells(6, 2), pt.Cells(15, 2), pt.Cells(16, 2), pt.Cells(22, 2), _
pt.Cells(23, 2), pt.Cells(28, 2), Range(pt.Cells(7, 5), pt.Cells(8, 10)), Range(pt.Cells(21, 3), pt.Cells(21, 10)))
pc.ClearContents 'efface le contenu de la plage pc
End Sub