Sub VerifieManque()
Application.ScreenUpdating = False
Dim N%, DL%, Texte$, Manque%, Plage As Range
DL = [A65500].End(xlUp).Row
Set Plage = Range("A8:A" & DL)
Texte = " dossier(s) manquant(s) :" & Chr(10): Manque = 0
For N = 1 To [B6]
If Application.CountIf(Plage, N) = 0 Then
Texte = Texte & N & Chr(10): Manque = Manque + 1
End If
Next N
If Manque = 0 Then
MsgBox "Pas de dossiers manquants."
Else
MsgBox Manque & Texte
End If
End Sub