cellules vide

Bonsoir à tous,

Voilà, j'ai un code du type :

Sheets('Listing entreprises').Select
Range('C7').Select
Selection.Copy
Sheets('Planning Entreprises').Select
ActiveSheet.Paste
Selection.AutoFilter Field:=1, Criteria1:='X'
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1

Sheets('Listing entreprises').Select
Range('C8').Select
Selection.Copy
Sheets('Planning Entreprises').Select
ActiveSheet.Paste
Selection.AutoFilter Field:=1, Criteria1:='X'
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1

avec une liste de C7 à C50, je souhaite que l'on passe directement 'sans imprimer' à la cellule C8 si la cellule C7 est vide

Est-ce possible?

D'avance merci à tous ce qui voudront bien se pencher sur mon problème qui j'en je sur n'en est pas vraiment un.

Laurent