MsgBox("Voulez vous le supprimer ?" , vbYesNo )
Dim rep As Long rep = vbYes While rep = vbYes rep = MsgBox("Voulez-vous continuer ?", vbYesNo) If rep = vbNo Then rep = vbYes Wend