Bonsoir,
il n'y a rien dans ton classeur : enfin... aucune macro; c'est un .xlsx
???
Cette macro imprime les feuilles cochées. (avec aperçu avant impression)
Pour supprimer l'aperçu supprimer "Preview:=True"
Sub imprimTout()
Dim k%
For k = 4 To Range("A3").End(xlDown).Row
If Cells(k, 7) = "x" Then
Worksheets(2).PrintOut Preview:=True
Worksheets(k - 1).PrintOut Preview:=True
End If
Next
End Sub
A+
[EDIT] C'est pas Top tes images insérées dans un classeur Excel... Si tu continues comme ça je te prédis de graves désillusions !
Excel n'est pas du tout un gestionnaire d'image : Au delà de 10 Mo avec Excel tu joues à la roulette russe !
Le minimum serait de compresser tes images.