Merci Steelson et Curulis57
J'ai pris la propo de steelson qui me parle plus, et qui fonctionne bien.
Malheureusement je bloque à nouveau sur la suite. Aller coller la sélection dans la colonne "A" une ligne en dessous de la ligne non vide de la colonne "AU". je l'ai écrit comme suit:
Range("A" & Range("A" & Rows.Count).End(xlUp).Row & ":Au" & Range("AU" & Rows.Count).End(xlUp).Row).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=24
Range("AU" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, -47).Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=15
Mais là j'ai maintenant une erreur d'exécution '1004' sur la ligne ActiveCell.offset, que je ne comprend pas.