Repport des differences

Sub AvecCopierColler() 
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet, C1 As Byte, C2 As Byte, Derlign As Long 
Set Ws1 = Sheets("Feuil1") 
Set Ws2 = Sheets("Feuil2") 
Set Ws3 = Sheets("Synthese") 
    Application.ScreenUpdating = False 
    For i = 2 To Ws1.Range("A65000").End(xlUp).Row 
        For j = 2 To Ws2.Range("A65000").End(xlUp).Row 
        If Ws1.Cells(i, 1) = Ws2.Cells(j, 1) Then 
            Derlign = Ws3.Range("A65000").End(xlUp).Row + 1 
            With Ws1 
                C1 = .Cells(i, 1).End(xlToRight).Column 
                .Range(.Cells(i, 1), .Cells(i, C1)).Copy 
                Ws3.Cells(Derlign, 1).PasteSpecial Paste:=xlValues 
            End With 
            With Ws2 
                C2 = .Cells(i, 1).End(xlToRight).Column 
                .Range(.Cells(j, 2), .Cells(j, C2)).Copy 
                Ws3.Cells(Derlign, C1 + 1).PasteSpecial Paste:=xlValues 
                End With 
        Application.CutCopyMode = False 
        End If 
        Next 
    Next 
    Application.ScreenUpdating = True 
    
End Sub