Comment récupérer en VBA l'adresse des cellules "aux 4 coins" d'un range ?

Parmi la foultitude de soluces :

sub zoziau()
 Set plg = [A2:D20]
 preml = plg(1).Row               '1° ligne de la plage
 dernl = plg.Rows.Count +preml-     1 'der ligne
 
 premc = Split(plg(1).Address, "$")(1)  '1° colonne de la plage
 dernc = Split(Cells(1, plg.Columns.Count + plg(1).Column - 1).Address, "$")(1)
 'der colonne
 
 MsgBox preml: MsgBox dernl: MsgBox premC:\ MsgBox dernc
 end sub

il y a aussi la méthode item Set plg = Range("A2:D20") preml = plg.Item(1).Row dernl = plg.Item(plg.Count).Row premc = plg.Item(1).Column dernc = plg.Item(plg.Count).Column MsgBox Range(Cells(preml, premc), Cells(dernl, dernc)).Address ou bien,

sub Macro1()
 Set plg = Range("A2:D20")
 preml = plg.Item(1).Row
 dernl = plg.Item(plg.Count).Row
 premc = LettreColonne(plg.Item(1).Column)
 dernc = LettreColonne(plg.Item(plg.Count).Column)
 end sub

Function LettreColonne(c As Integer)
  LettreColonne = Left(Cells(1, c).Address(0, 0), IIf(c < 27, 1, 2))
 End Function