Impression lignes remplis

Bonjour

Je suis à la recherche d'un code pour imprimer uniquement les lignes remplis et pas le fond de page qui est jaune ?

Je vous remercie et vous souhaite une bonne journée

Max

Bonsoir,

Un code à essayer :

Sub imprimer()
    dernLig = Range("B" & Rows.Count).End(xlUp).Row
    Range("B6:F" & dernLig).Interior.ColorIndex = xlautomatique
    Range("B5:F" & dernLig).PrintOut
End Sub