XL 2016 Erreur définie par l'application ou par l'objet

julstb

XLDnaute Nouveau
bonjour à tous, mon problème porte sur une boucle qui incrémente une variable tant que la valeur d'une cellule est égale à la valeur de la cellule d'en dessous. Le programme fonctionnait parfaitement jusque là puis sans raison cela s'est mis à m'afficher cette erreur. Néanmoins le code s’exécute quand même. Je voudrai du coup savoir à quoi correspond cette erreur? Comment résoudre ce problème?

Voici l'extrait de mon code

Sub copitabl()

i = 2
a = 0
j = 3
b = 2
z = 0

For i = 2 To x

While Worksheets("ouverture de cycle").Range("A" & i) = Worksheets("ouverture de cycle").Range("A" & i + 1)
a = a + 1
i = i + 1
Wend


i = i - a
Worksheets("Ouverture de cycle").Range("A" & i, "D" & i + a).Copy
Worksheets("Comparaison").Range("A" & j).PasteSpecial xlPasteAll

For b = b To x

If Worksheets("Ouverture de cycle_2").Range("A" & b) = Worksheets("Comparaison").Range("A" & i) Then
Worksheets("Ouverture de cycle_2").Range("A" & b, "D" & b).Copy
Worksheets("Comparaison").Range("E" & j + z - 2).PasteSpecial xlPasteAll
z = z + 1
End If

Next b
z = 0
j = j + 1 + a
i = i + a
a = 0
b = 2
Next i

Application.ScreenUpdating = True
End Sub

L'erreur porte sur la ligne "While Worksheets("ouverture de cycle").Range("A" & i) = Worksheets("ouverture de cycle").Range("A" & i + 1)"

Merci d'avance pour votre aide:)