Bonjour,
le souci vient du test que tu fais sur la valeur que retourne ta msgbox, contrairement à ce qu'on pourrait penser, vbYesNo renverra comme valeur, soit vbYes, soit vbNo, vbYes est égal à 6, et vbNo à 7.
Si tu veux continuer dans le cas où la personne appuyerait sur "Oui", alors le test devient:
If MsgBox("Voulez vous vraiement effacer le contenu Importation ?", vbYesNo + vbCritical + vbDefaultButton2, "Attention") = vbYes then
End If