Sub DéplaceColonneEtLigne()
With Sheets("Feuil1")
Application.ScreenUpdating = False
'--------------------------------------- Pour les colonnes
xDercol = .Range("ZZ1").End(xlToLeft).Column 'Dernière colonne de la feuille
xDerlig = Cells(100, xDercol).End(xlUp).Row 'Dernière ligne en fonction de la dernière colonne
xColVide = .Range("A1").End(xlToRight).Column + 1 'Première colonne vide dans le tableau
.Range(.Cells(1, xDercol), .Cells(xDerlig, xDercol)).Cut .Cells(1, xColVide) 'Couper / Coller
'--------------------------------------- Pour les lignes
xLigVide = .Range("A1").End(xlDown).Row + 1 'Première ligne vide du tableau
xDerlig = .Range("A100").End(xlUp).Row 'Dernière ligne de la feuille
xDercol = .Range("A" & xLigVide - 1).End(xlToRight).Column + 1 'Dernière colonne en fonction de la dernière ligne
.Range(.Cells(xDerlig, 1), .Cells(xDerlig, xDercol)).Cut .Cells(xLigVide, 1) 'Couper / Coller
Application.ScreenUpdating = True
End With
End Sub