mon probleme sur les 11 premieres colonnes je veux en me placant sur la premiere ligne couper la ligne et la coler 2 colonnes a cote,donc pour ca pas de probleme,par contre pour la deuxieme ligne,et bien elle remplace la premiere au lieu d etre en dessous
voila mon code
Sub toto()
'Copie les colonnes A à K dans M à W
Dim l As Integer
For l = 1 To 10 'pour les lignes de 1 à 10 ... .à modifier au besoin
Cells(l, 1).Resize(1, 11).Cut Cells(l, 13)
Next l
End Sub
merci de ta reponse mais en fait il faut que je me positionne sur une ligne de 1 a 10 mais pas toutes,une seule,que je lance la macro,et que la ligne soit coupée et mise 2 colonnes plus loin,merci de votre aide
Encore une fois, je ne suis pas certain si j'ai bien compris. Si ce n'est pas ça, je te suggère de joindre un fichier avec des données bidons et un exemple du résultat attendu.
VB:
Sub toto()
ActiveCell.Resize(1, 11).Cut ActiveCell.Offset(0, 2)
End Sub