Macro qui plante

Re bonjour,

je me permet de poster un nouveau fil :whistle: car le précédent n'a plus lieu d'etre du fait que son titre a été résolu :lol: . Le probleme est que la macro fonctionne et fait son boulot, mais au lieu de s'arreter elle continu jusqu'à planter 🙁 . De plus, elle met beaucoup de temps :S .

une idée sur l'erreur?
Voici le code:
Sub MAJ_RF()
Dim c1 As Range, c2 As Range
Dim Exist As Byte
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim Var_Text As String


Set ws1 = Sheets('Rolling_Forecast')
Set ws2 = Sheets('Extract_AFU')


For Each c2 In ws2.Range('a2:a' & ws2.Range('a65536').End(xlUp).Row)
Exist = 0
For Each c1 In ws1.Range('e10:e' & ws1.Range('e65536').End(xlUp).Row)

Var_Text = c1.Address
Var_Text = c2.Address

If c2.Address = c1.Address Then Exist = 1


Next c1

If Exist = 0 Then
With ws1
.Range('e' & .Range('e65536').End(xlUp).Row + 1) = c2
End With
End If
Next c2

End Sub

ce code est la derniere version que j'ai utilisé qui semble ne pas fonctionné du faite de c1.address et c2.address, mais au moins pas de plantage meme si super long.


Merci de vos lumineuses idées...