N'imprimer que le nécessaire

Bonjour tout le monde,

Ici dans l'exemple ci-joint, la macro me propose d'imprimer les 10 pages.

Mais je voudrais imprimer que le nécessaire suivant le nombre de Noms inscrits.

Cdt

margar

Désolé voici fichier corrigé

Bonjour

MARGAR a écrit :

ci-joint, la macro me propose d'imprimer les 10 pages.

Bye !

bonjour,

à tester

Sub imprimer_FDM1()
    With Sheets("FDM1")
        dl = Int((.Cells(Rows.Count, 1).End(xlUp).Row - 4) / 2 + 0.5)
        .Range("H1:T" & dl * 19).PrintOut preview:=True
    End With
End Sub

Merci h2so4, c'est parfait!

Merci le forum

Cdl

margar