Déplacement Tableau VBA

[James Dean]

Bonjour, bonsoir

Suite à des données générés aléatoirement, je sais combien j'ai de colonnes mais pas de lignes. Je sais cependant qu'il y a toujours moins de 100 lignes. J'aimerai sélectionner le tout est déplacer le "tableau" de deux cases vers le bas une colonne vers la gauche.
Voici mon début de code, peut-être pourrez vous m'éclairer. Merci d'avance !

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

 

[Hasco]

Bonjour,

Range("A1").CurrentRegion.Cut Destination:=Range("A1").CurrentRegion.Offset(2, 1)

Cordialement

 

[James Dean]

Génial merci !