Sub Plage1()
On Error Resume Next
With Feuil1.[A1:D12]
If Intersect(ActiveCell, Union(.Cells, Feuil1.[A15:C34])) Is Nothing Then
ActiveCell.Resize(.Rows.Count, .Columns.Count).UnMerge
.Copy ActiveCell
Else
MsgBox "La cellule active ne doit pas être dans une des plages !", 48
End If
End With
End Sub
Sub Plage2()
On Error Resume Next
With Feuil1.[A15:C34]
If Intersect(ActiveCell, Union(.Cells, Feuil1.[A1:D12])) Is Nothing Then
ActiveCell.Resize(.Rows.Count, .Columns.Count).UnMerge
.Copy ActiveCell
Else
MsgBox "La cellule active ne doit pas être dans une des plages !", 48
End If
End With
End Sub