la macro suivante te permet d'afficher toutes les valeurs libres dans une msgbox
Sub libres()
Dim Valeurs(260), Existes(260) As String
Dim Nbcells As Integer
Dim i, j, n, p As Integer
Dim exist As Boolean
Nbcells = Range("A1").End(xlDown).Row
libre = ""
For i = 1 To 256
Valeurs(i - 1) = i
Next i
For j = 1 To Nbcells
Existes(j - 1) = Cells(j, 7).Value
Next j
For n = 0 To 256
For p = 0 To UBound(Existes)
If Existes(p) = Valeurs(n) Then
exist = True
End If
Next p
If exist <> True Then
libre = libre & Valeurs(n) & "/"
End If
exist = False
Next n
MsgBox (libre)
End Sub
Tu n'a plus qu'a créer un bouton et lui affecter la macro