Boucle infinie

Bonjour à tous,

J'aimerais comprendre comment je dois placer ma boucle pour qu'elle ne soit pas infinie. Je m'explique:

Le code est appliqué à un bouton "valider", qui fait lui même partie d'une userform.
Mon bouton valider sert à copier les données des Combobox dans une autre feuille.

Ce que j'essaye de faire :

Insérer une boucle qui contrôle si toutes les combobox sont remplies et si ce n'est pas le cas, fait apparaitre une MsgBox le signalant. Mon code est le suivant :

If Domaine = "" Or Batiment = "" Or Etage = "" Or Lieu = "" Or LieuBis = "" Or ListBox1 = "" Then
MsgBox ("Toutes les cases ne sont pas remplies")

Sheets("Recap").Select
Feuil2.[A:H].Rows(Feuil2.[A65536].End(xlUp).Row + 1).Value _
= Array(Domaine, Batiment, Etage, Lieu, LieuBis, ListBox1, TextBox1, Signalant.Value)
Sheets("Accueil").Select

Je me suis aperçu qu'avec une condition "IF" la msgbox s'affiche mais la suite du code est quand même exécutée.

J'ai donc tenté

While Domaine = "" Or Batiment = "" Or Etage = "" Or Lieu = "" Or LieuBis = "" Or ListBox1 = "" Then
MsgBox ("Toutes les cases ne sont pas remplies")
Loop

Do While Domaine = "" Or Batiment = "" Or Etage = "" Or Lieu = "" Or LieuBis = "" Or ListBox1 = "" Then
MsgBox ("Toutes les cases ne sont pas remplies")
Loop

Mais avec ces codes, la msgbox apparait et ne disparait jamais.
J'imagine qu'il faut que j'insère une condition de sortie ?

Merci à tous !