Function MANQUE() As String
Dim tablo, ref As Range, plage As Range, i As Byte
Application.Volatile
tablo = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
Set ref = Application.Caller
Set plage = Cells(ref.Row, 1).Resize(, ref.Column - 1)
For i = 0 To UBound(tablo)
If IsError(Application.Match(tablo(i), plage, 0)) Then MANQUE = MANQUE & ", " & tablo(i)
Next
MANQUE = IIf(MANQUE = "", "Complet", "Manque :" & Mid(MANQUE, 2, 999))
End Function