Dim u As Integer
Dim compteur
Dim collon
Sheets(deux).Select
Cells.Select
Selection.Copy
Sheets(trois).Select
Cells(1, 1).Select
ActiveSheet.Paste
While compteur < 2
For i = 1 To Sheets(un).Range('A65000').End(xlUp).Row
For u = 1 To Sheets(trois).Range('A65000').End(xlUp).Row
For collon = 1 To col
If Sheets(un).Cells(i, collon) <> Sheets(trois).Cells(u, collon) Then
GoTo ligne1
End If
Next collon
Sheets(trois).Range('A' & u).Select
ActiveCell.EntireRow.Delete
ligne1:
Next u
Next i
compteur = compteur + 1
Wend