Sub Resultat()
Dim i As Integer
Dim Derlg As Integer
Dim Premlg As Integer
Derlg = Sheets("Epargnants").Range("A65536").End(xlUp).Row
For i = 3 To Derlg
Premlg = Sheets("resultat").Range("A65536").End(xlUp).Row + 1
If Cells(i, 1) = Cells(i, 2) Then Rows(i).Copy Sheets("resultat").Range("A" & Premlg)
Next i
End Sub