If flag = 2 Then
Dim val1 As Range
Dim val2 As Range
Dim i As Integer
For i = 2 To Range('A1').End(xlDown).Row
Set val1 = Sheets('GGM').Range('a' & i)
Set val2 = Sheets('TEMP').Range('a' & i)
If val2 = val1 Then
Feuil1.Cells(x, y).Value = Feuil2.Cells(xtemp, ytemp + 1)
Feuil1.Cells(1, y).Value = MonthName(Month(Now), True)
Feuil1.Cells(x, y + 1).Value = (Feuil2.Cells(xtemp, ytemp + 1).Value - Feuil1.Cells(x, y - 3).Value)
Feuil1.Cells(1, y + 1).Value = 'Delta Previous Month'
Feuil1.Cells(x, y + 2).Value = (Feuil1.Cells(x, y + 1).Value + Feuil1.Cells(x, y - 1).Value)
Feuil1.Cells(1, y + 2).Value = 'cumulated delta'
Else
End If