Msgbox global.

Bonjour le forum,

Lors d'une importation de données d'access vers excel, j'ai créé un code pour tester si il y a des données incohérente. Lorsque des données sont incohérentes un msgbox nous dit l'erreur. Il y a un message box pour chaque incohérence mais je souhaiterais que toutes les incohérences apparaisent sous un seul msgbox; Merci pour votre aide.

Voici mon code:

Sub TestCoherence()
'Procédure de test de la cohérence des données importées
For ligne_Famille1 = premiere_ligne_Famille1 To derniere_ligne_Famille1

'suppression de la ligne dans la Famille 1
Feuil2.Rows(ligne_Famille1).Delete

'suppression éventuelle des décisions attenantes à ce programme

ligne_Famille1 = ligne_Famille1 - 1
Else

'le manque d'une des informations suivantes ne permet pas d'utiliser toutes les fonctionnalités du TdB CDE
If IsEmpty(Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("Code Programme"))) = False _
And (IsEmpty(Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("Désignation Programme"))) = True _
Or IsEmpty(Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("MOA (dép)"))) = True _
Or IsEmpty(Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("MOAd (pers)"))) = True _
Or IsEmpty(Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("Budget Imputation"))) = True) Then

MsgBox ("Le manque d'une des informations suivantes du programme ( Code : " _
& Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("Code Programme")) _
& " ) ne permet pas d'utiliser toutes les fonctionnalités du TdB CDE. Le programme est néanmoins importé" _
& Chr(10) & " Désignation : " & Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("Désignation Programme")) _
& Chr(10) & " MOA (département) : " & Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("MOA (dép)")) _
& Chr(10) & " MOA (personne) : " & Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("MOAd (pers)")) _
& Chr(10) & " Budget d'imputation : " & Feuil2.Cells(ligne_Famille1, numero_colonne_Famille1("Budget Imputation")))
End If
End If
Next

End Sub




Merci de bien vouloir m'aider à le modifier.