imprimer un classeur

Bonjour, voici le code de Daniel.C
qui fait ce que tu veut.
Sub filtrer_Prod_Unique()
'
' filtrer_feuil_livraison Macro
'
For Each c In Sheets("ToTo").Range("H8:CH8")
If c.Value = "0" Then
c.ColumnWidth = 0
End If
end sub

Bonjour.
Essaie la macro suivante :

Sub Iprimer()
Dim Col As Integer, Ligne As Long
Col = Cells.Find("*", [A1], xlFormulas, , _
xlColumns, xlPrevious).Column
For i = Cells.Find("*", [A1], xlFormulas, , _
xlColumns, xlPrevious).Row To 1 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(i, Col)), 0) + _
Application.CountIf(Range(Cells(i, 1), Cells(i, Col)), "") < Col
Then
Intersect(ActiveSheet.UsedRange, Range("A1", Cells(i,
Col))).PrintOut
Exit For
End If
Next i
End Sub

Cordialement.
Daniel
"AGDO" <AGDO@discussions.microsoft.com> a écrit dans le message de news:
52CD0BF6-99BF-426A-9D91-DFC6B264CEC7@microsoft.com...

Bonjour et d'avance Merci
J'ai une feuille de 40 lignes les dernières lignes sont suivant les
résultat
égale à 0: Que dois je faire pour que systématiquement les lignes égale à
0
n'apparaissent pas sur la page imprimée (gain de place)

Bonjour, voici le code de Daniel.C
qui fait ce que tu veut.
Sub filtrer_Prod_Unique()
'
' filtrer_feuil_livraison Macro
'
For Each c In Sheets("ToTo").Range("H8:CH8")
If c.Value = "0" Then
c.ColumnWidth = 0
End If
end sub


Voila ce que j'écris dans le module de macro
Sub filter_Prod_Unique()

'
'filtrer_feuil_Pierre par mois Macro
'
For Each c In Sheets("ToTo").Range("C1:T33")
If c.Value = "0" Then
c.ColumnWidth = 0
End If
End Sub
et il ne laccepte pas
pouvez vous m'aider un peu plus
pas assez de connaissence dans Macro
encore Merci