Sub macro1()
Set Sht = Sheets("actualbudget")
Set sht1 = Sheets("base")
compteur = 6
n = sht1.Range("a65000").End(xlUp).Row
For i = 6 To n
n = sht1.Range("a65000").End(xlUp).Row
If Sht.Cells(i, 2) = sht1.Cells(i + 1, 1) And Sht.Cells(i, 4) = sht1.Cells(i + 1, 4) Then
Sht.Cells(i, 14) = sht1.Cells(i + 1, 6)
End If
Next i
End Sub