Merci de tes conseilles!
je t'avoues que je ne comprend plus trop car j'ai essayé beaucoup de chose avec des approches differentes pour arriver au constat suivant. Le probleme est lié au feuille. En effet, le code est juste en fonction d la feuille sur la quel je suis. en faite, il ne comprend que la partie lié à la feuille en cours. et vu que je compare deux feuille j'en ai toujours une fausse et donc il ne peut comparé.
Je suis reparti sur cette base car je sens qu'il ne manque pas grand chose.
Sub MAJ_RF()
Sheets('Rolling_Forecast').Select
Cells.Select
Selection.RemoveSubtotal
Range('a1').Select
Sheets('Extract_AFU').Visible = True
Sheets('Extract_AFU').Select
Dim Derligne1, Derligne2
Dim i1, i2
Dim Exist
Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Derligne2 = Sheets('Extract_AFU').Range('w65536').End(xlUp).Row
Dim Feuille1, Feuille2 As Sheets
Set Feuille1 = Sheets('Rolling_Forecast')
Set Feuille2 = Sheets('Extract_AFU')
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
If Sheets('Extract_AFU').Range(Cells(2, 23) & i2) = Sheets('Rolling_Forecast').Range(Cells(10, 5) & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('Rolling_Forecast').Range(Cells(10, 5) & Derligne1 + 1) = Sheets('Extract_AFU').Range(Cells(2, 23) & i2)
Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Suivant:
Exist = 0
Next
Sheets('Extract_AFU').Visible = False
End Sub
merci encore