Je pense avoir résolu le probléme, même si le code n'est pas très prpropre mais l'idée est la est cela fonctionne :
Sub test()
fin = Range("A65536").End(xlUp).Row
For Each c In Range(Cells(1, 1), Cells(fin, 1))
'MsgBox c
'MsgBox c.Offset(1, 0)
If c.Offset(1, 0) - c > 1 Then
c1 = c.Offset(1, 0)
'MsgBox c1
nb = (c1 - 1) - c
'MsgBox nb
For i = 1 To nb
L = L + 1
Cells(L, 2) = c + i
Next i
End If
Next c
End Sub