Dim Cellule As Range
Dim NbreLign As Long
Dim NbreCol As Byte
'Cellule de référence (coin supérieur gauche de la plage à adapter)
Set Cellule = Range('A1')
'Nombre de lignes et de colonnes totales à prendre en compte (à adapter)
NbreLign = 2
NbreCol = 10
'Sélection de la plage souhaitée
Range(Cellule, Cellule.Offset(NbreLign-1, NbreCol-1)).Select