Cellules vide (A1) ne rien faire sinon exécuter macor

Bonjour,

j'ai chercher de long minutes sur le site sans trouver vraiment la solution que je voulais

je m'explique, j'ai déjà crée des macro qui met en forme un tableau excel extraire d'un logiciel (EBP Bâtiment).

J'ai assemblé tout ces écriture dans un seul bouton pour faciliter sont utilisations.

Or si le tableau extrait du logiciel n'a pas effectuée la macro va échouer (logique).

J'ai donc pensé mettre dans la cellule A1 si elle est égale à rien ne pas continuer la procédure (msg box) sinon continuer la procédure.

Merci par avance.

Maxime

J'ai trouver !

le voici si sa peu aider :

Sub reclasser_donner()

Sheets("Coller document EBP").Select

Select Case msgbox("Le fichier excel à bien été copié ou remplacé? ", vbYesNo + vbQuestion, "ATECC")
    Case vbYes

  If Range("A1").Value = 0 Then

    msgbox ("Remplire feuille 'coller excel document'"), vbExclamation
    Exit Sub

 End If

En_tete
intuitulé_MO
Pointié
Exo_11
chantier
chantier12
chantier122
maitreMO
inserer_lignes
Copi_partie_tableau
Exo_12
maitreREcap
tri
tri2
intitulé
fonction_si
sous_total
calcul_nb_jour
Nombre_vide
total_si
Calcul_nb_ouvrier
relier_recaptitulatif
intitule2
calculnbjour
coller_calculnbjour
Nombre_douvrier_total
coller_nombre_douvrier_total
copi_si
coller_si
nombre_douvrier_rentrer
caché_ligne
Copi_recap
sheets_feuille_2
calcul_conducteur

Case vbNo
msgbox ("Copié le fichier")

End Select

End Sub