Sub essai()
' Supprimer les anciennes valeurs pour
' une liste propre
Columns("P:P").Select
Selection.Delete Shift:=xlToLeft
' Initialisation des variables
p = 2
fin = [H500].End(xlUp)
n = Val([H2])
i = 2
' placement des chiffres trouvés sur la
' 16° colonne (P)
' incrémentation de la valeur précédente
' … afin de détecter les places dispo.
Do While n < fin
If n <> Val(Cells(i, 8)) Then
Cells(p, 16) = n
p = p + 1
n = n + 1
Else
i = i + 1
If Val(Cells(i, 8)) <> Val(Cells(i - 1, 8)) Then n = n + 1
End If
Loop
End Sub