Bonjour Singatoka, le Forum
J'ai été replongé dans le temps en arrière dans ce Forum pour des recherches... Et je tombe sur cette question...
Ptet une solution toute simple on cache les ligne précédentes et on en insère autant, on imprime, puis on remet comme s'était !!!
Sub HideAndInsert()
Dim LDep As Integer, LArr As Integer, LDifH As Integer, LDifB As Integer
LDep = 1
LArr = 20 '<<<<<< Ici ta cellule "=Sheets("FeuilleDeTaVariable").Range("TaCellule")
LDifH = LArr + 1
LDifB = LDifH + LArr
Rows(LDep & ":" & LArr).EntireRow.Hidden = True
Rows(LDifH & ":" & LDifB).Select
Selection.Insert Shift:=xlDown
ActiveSheet.PrintPreview '<<<<<<< Ici PrintOut (pour les tests je suis en preview)
Rows(LDep & ":" & LArr).EntireRow.Hidden = False
Rows(LDifH & ":" & LDifB).Delete
End Sub
Pour que ceci fonctionne, il faut bien évidemment que tes Shapes d'images soient paramétrés dans les propriété => Déplacer (avec ou sans Dimensionner) avec les Cellules....
Bon Travail et sorry pour les délais de réponse
Bon Dimanche
@+Thierry