Bonjour à tous,

J'ai un problème avec ma formule find qui ne va pas jusqu'au bout.
En effet, elle s'arrête à la ligne 5 de mémoire.

Je ne comprend pas pourquoi?

Voici mon code:

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Contrôle"
Sheets("Contrôle").Range("A1") = "DATE"
Sheets("Contrôle").Range("B1") = "PALETTE MANQUANTE"
a = Sheets("Gestionstock").Range("M" & Rows.Count).End(xlUp).Row
aa = TextBox1.Value

debut:

aa = DateAdd("d", -1, aa)


On Error GoTo erreur
Sheets("gestionstock").Activate
b = Sheets("Gestionstock").Columns(1).Find(aa).Row

GoTo suite

erreur:
Err.Clear
Resultat = Resultat + 1
If Resultat > 0 Then
Resume debut

End If

suite:

For c = 3 To b

refpal = Sheets("Gestionstock").Range("c" & c).Value

For d = 3 To a
refpalc = Sheets("Gestionstock").Range("o" & d).Value

If refpal = refpalc Then
Exit For


End If

Next d

If refpal = refpalc Then

GoTo labels

Else
e = Sheets("Contrôle").Range("a" & Rows.Count).End(xlUp).Row + 1
Sheets("Contrôle").Range("A" & e).Value = Sheets("Gestionstock").Range("A" & b)
Sheets("Contrôle").Range("B" & e).Value = refpal

End If
labels:
Next c


End Sub