Bonjour,
Une fonction personnalisée :
Function RecherchePostesManquants(Plage As Range, MaxPoste As Byte)
Dim Resultat As String
For N = 1 To MaxPoste 'Parcourt les N° de poste
If Plage.Find(N, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then 'Recherche du poste N dans la plage
If Len(Resultat) = 0 Then Resultat = N Else Resultat = Resultat & ", " & N 'Incrémente le résultat
End If
Next N
RecherchePostesManquants = Resultat 'Renvoie le résultat
End Function
Voilà ton fichier en retour :