compter les cellules vides

[Pascal]

Salut,

Bon je débute alors c'est peut-etre l'enfance de l'art mais je ne sais pas comment faire.

Je souhaiterais copier des feuilles excel vers un nouveau classeur. Le problème c'est que j'aimerais ne pas copier les feuilles qui ont, par exemple, plus de 20 cellules vides qui se suivent sur une colonne.

Je ne suis peut-etre pas très clair, alors j'ai joint un exemple.

Voici ma commande pour enregistrer toutes les feuilles:

Set NvClasseur = Workbooks.Add
Windows("DEVIS.xls").Activate
Sheets(Array("Chauffage", "Rafraichissement", "Climatisation", "Ventilation", "Plomberie", "Electricite", "Locaux_Techniques")).Copy Before:=Workbooks(Workbooks.Count).Sheets(1)
fName = Application.GetSaveAsFilename
If fName = Fauxxls Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Exit Sub

Else
NvClasseur.SaveAs FileName:=fName & "xls"

ActiveWorkbook.Close

End If

Merci de votre aide et bon weekend à tous

 

[Pascal]

J'avais oublié le fichier joint...

 

[Pascal]

Pardon....Ya beaucoup de bordel dans la commande que j'ai posté. Voici la partie qui m'interesse pour la copie des feuilles:



Set NvClasseur = Workbooks.Add
Windows("DEVIS.xls").Activate
Sheets(Array("Chauffage", "Rafraichissement", "Climatisation", "Ventilation)).Copy Before:=Workbooks(Workbooks.Count).Sheets(1)


Merci