Ooooh MARION, comment oses-tu sous entendre que le repas fut trop arrosé, j'ai corrigé ce qui cloche
Ce code définit la zone d'impression de ton tableau en excluant toutes les lignes vides du bas, par contre il ne déclenche pas l'impression (mais ce n'est pas ce que tu demandais...)
Sub zoneimpres()
For x = 70 To 1 Step -1
Range('B' & x & ':T' & x).Select
For Each cel In Selection
If Trim(cel.Value) <> '' Then
fin = x
GoTo suite
End If
Next cel
Next x
suite:
ActiveSheet.PageSetup.PrintArea = $B$1:$T$' & fin
End Sub
ce qui clochait c'est que printarea ne se définit PAS avec 'Range' (dernière ligne)
Maintenant, si tu veux que le macro imprime directement, ajoute
juste avant 'End sub':
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Et attention, hein, plus de sous entendus, MOI qui ne boit que de la Badoit LOL :whistle: