XL 2010 Vérifier qu'un ensemble de chiffre est bien indiqué dans un tableau

Function Manque(Plage As Range)
    Manque = ""
    For n = 1 To 16
        If Application.CountIf(Plage, n) = 0 Then
            Manque = Manque & n & ","
        End If
    Next n
    If Len(Manque) > 1 Then Manque = Mid(Manque, 1, Len(Manque) - 1)
End Function

=SI(NB.SI(B$4:B$20;1)=0;"1  ,";"")&
SI(NB.SI(B$4:B$20;2)=0;"2  ,";"")&
SI(NB.SI(B$4:B$20;3)=0;"3 ,";"")&
SI(NB.SI(B$4:B$20;4)=0;"4 ,";"")&
SI(NB.SI(B$4:B$20;5)=0;"5 ,";"")&
SI(NB.SI(B$4:B$20;6)=0;"6  ,";"")&
SI(NB.SI(B$4:B$20;7)=0;"7 ,";"")&
SI(NB.SI(B$4:B$20;8)=0;"8  ,";"")&
SI(NB.SI(B$4:B$20;9)=0;"9 ,";"")&
SI(NB.SI(B$4:B$20;10)=0;"10 ,";"")&
SI(NB.SI(B$4:B$20;11)=0;"11 ,";"")&
SI(NB.SI(B$4:B$20;12)=0;"12 ,";"")&
SI(NB.SI(B$4:B$20;13)=0;"13 ,";"")&
SI(NB.SI(B$4:B$20;14)=0;"14 ,";"")&
SI(NB.SI(B$4:B$20;15)=0;"15 ,";"")&
SI(NB.SI(B$4:B$20;16)=0;"16  ,";"")