Sub Macro2()
Dim P As Range
Set P = [C25,I25,C30,I30]
'test
MsgBox Union(P.Item(1, 1), P.Item(1, 7), P.Item(6, 7)).Address
Union(P.Item(1, 1), P.Item(1, 7), P.Item(6, 7)).Select
'test adresse des cellules de la selection
MsgBox Selection.Address
End Sub