Bonjour,

j'essaie vainement d'insérer une plage de cellules

le test fonctionne mais la macro sort une erreur 1004 au moment de la définition du range colonne k à gauche duquel j'essaie d'insérer une plage (manipulation équivalente au ctrl+shift+"+")

mes connaissances de base à ce sujet sont minces

pourquoi cela ne marche-t-il pas ? : s

(copie d'une plage de la feuille 5 à la feuille 6 puis insertion plage si le test sur la valeur de l'intitulé de la plage collée a échoué)

For i = 2 To a

ThisWorkbook.Sheets("Step_5").range("A" & Sheets("indices").Cells(i, 4).Value + 1 & ":" & "AC" & Sheets("indices").Cells(i, 5).Value - 1).Copy

j = Sheets("Step_6").range("A1000000").End(xlUp).Row

ThisWorkbook.Sheets("Step_6").Cells(j + 1, 1).Select
ActiveSheet.Paste

For k = 1 To 9

If ThisWorkbook.Sheets("Step_6").Cells(j + 1, k).Value <> Sheets("Step_6").Cells(1, k).Value And ThisWorkbook.Sheets("Step_6").Cells(j + 1, k).Value = Sheets("Step_6").Cells(1, k + 1).Value Then

Dim z As Integer

z = Application.range("A1000000").End(xlUp).Row

Dim rng As range

rng = Sheets("Step_6").range(Cells(j + 1, k), Cells(z, k))

rng.Select
Selection.Insert Shift:=xlToRight

End If

Next k

Next i