Sub oui()
Dim nb_lignes
Dim nb_colonnes
Dim nb_tableau
' Déplacer toutes les données de 2 lignes + 1 colonne
nb_lignes = Range("A1").CurrentRegion.Rows.Count
nb_colonnes = Range("A1").CurrentRegion.Columns.Count
nb_tableau = nb_lignes & nb_colonnes
nb_tableau.Offset(2, 1).Select
End sub