Determiner une plage de cellule avec variable

Sub Test() 
Dim vPlage As Range 'plage de cellule du tableau 

  Set vPlage = ActiveCell.Resize(12, 3) 

  ' Pour copier la plage, pas besoin de la selectionner 
  vPlage.Copy Destination 
   
  ' Pour sélectionne la plage : 
  vPlage.Select 


End Sub 

Sub test()
'déclaration des variables de type Range
Dim plage As Range
Dim Cellu As Range
'affectation aux variables de leur valeur respective
'Cellu = cellule active
Set Cellu = ActiveCell
'plage = range(cellule active, cellule active décalée de 12 lignes et 3 colonnes
Set plage = Range(Cellu, Cellu.Offset(12, 3))
'message à l'utilisateur : adresse de la plage
     MsgBox plage.Address
'remise à zéro des variables
Set Cellu = Nothing
Set plage = Nothing
'fin de la préocédure
End Sub