trouver dans une colonne le premier chiffre manquant

Sub test()
dim x
dim w
dim i
dim u

x = Feuil1.Range("C9:C65536").End(xlDown).Row
w = Feuil1.Range("C" & w).Value
For i = 1 To w
Set celluletrouvee = Range("C9:C65536").Find(i, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé" & i)
Else
u = celluletrouvee.Row
'MsgBox ("trouvé ligne" & u)
End If
Next
End Sub

=EQUIV(VRAI;ESTVIDE(A1:A100);0)

Sub Manquant()
 Dim i As Long, LigDeb As Byte

 '******* à adapter *****
 LigDeb = 1
 With Worksheets("Feuil1")
 '************************
 For i = LigDeb To .Range("A" & .Rows.Count).End(xlUp).Row
    If .Cells(i, 1) = "" Then
        MsgBox "il manque la valeur : " & .Cells(i, 1).Offset(-1, 0) + 1 & " en ligne " & i
        Exit For
    End If
 Next
 End With
End Sub

Sub test()


x = Feuil1.Range("C9:C65536").End(xlDown).Row
w = Feuil1.Range("C" & x).Value

If Range("C9").Value <> 1 Then
Rows(9).Insert Shift:=xlDown
Range("C9").Value = 1
' suite de remplissage des données dans la ligne 9
End If
For i = 1 To w
Set celluletrouvee = Range("C9:C65536").Find(i, lookat:=xlWhole)
If celluletrouvee Is Nothing Then

MsgBox ("pas trouvé" & i)

Else
u = celluletrouvee.Row
'MsgBox ("trouvé ligne" & u)
End If
Next
End Sub

Sub manquant()
derlig = Cells(Rows.Count, 3).End(xlUp).Row
i = 1
tablo = [C9].Resize(derlig - 8, 1)
If tablo(1, 1) <> 1 Then MsgBox "Pas de 1 en première position": Exit Sub
If UBound(tablo) = Application.Max([C9].Resize(derlig - 8, 1)) Then MsgBox "pas de manquant!": Exit Sub
Do
    If tablo(i, 1) + 1 <> tablo(i + 1, 1) Then MsgBox tablo(i, 1) + 1 & " manquant en ligne " & 9 + i: Exit Do
    i = i + 1
Loop While i <= UBound(tablo)
End Sub

Sub test()


x = Feuil1.Range("C9:C65536").End(xlDown).Row
w = Feuil1.Range("C" & x).Value

If Range("C9").Value <> 1 Then
Rows(9).Insert Shift:=xlDown
Range("C9").Value = 1
' suite de remplissage des données
Exit Sub
End If
For i = 1 To w
Set celluletrouvee = Range("C9:C65536").Find(i, lookat:=xlWhole)
If celluletrouvee Is Nothing Then

MsgBox ("pas trouvé" & i)
' proposition du premier chiffre manquant
' si vbyesno= oui
' remplissage des données avec i en incérant la ligne entre i-1 et i+1
' exit sub
' else
' remplissage des données à la dernière ligne vide avec w+1
' exit sub
Else
u = celluletrouvee.Row
MsgBox ("trouvé ligne" & u)
' remplissage des données à la dernière ligne vide avec w+1
'exit sub
End If
Next
End Sub

=INDEX(A:A;EQUIV(VRAI;A2:A1001<>A1:A1000+1;0))+1

=INDEX(A:A;EQUIV(VRAI;DECALER(A2;;;NB(A:A))<>DECALER(A1;;;NB(A:A))+1;0))+1

Sub absent()
  adr = Range(Cells(9, 3), Cells(Rows.Count, 3).End(xlUp)).Address(0, 0)
  frml = Replace("=MIN(IF(ROW(adr)-8=adr,"""",ROW(adr)))", "adr", adr)
  i = Application.Evaluate(frml)
  MsgBox IIf(i > 0, i - 8 & " absent en ligne " & i, "Suite OK")
End Sub