Macro pour passer d'une requête à une autre si la cellule est vide

[jeremy8512]

Bonjour à tous,

J'aurais besoin d'un petit coup de pouce concernant l'une de mes macros (mes connaissances en vba sont limitées).

J'ai construit une macro qui copie les données de 12 onglets différents (un onglet par mois) et qui les rassemblent sur un onglet commun (onglet "Extraction"). Problème : si l'un des onglets est vide, ma macro ne se poursuit pas (débogage).

Comment dire à mon programme, si cellule A2 de l'onglet... est vide, alors poursuit sur la requête suivante ?

Voici un extrait de ma macro :

Sheets("6").Select
Range("A2:U2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Extraction Essor").Select
ActiveSheet.Paste
Range("A65536").End(xlUp).Offset(1, 0).Select
Sheets("7").Select
Range("A2:U2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Extraction Essor").Select
ActiveSheet.Paste
Range("A65536").End(xlUp).Offset(1, 0).Select

Merci d'avance pour votre aide.