Macro comparaison fichier

Bonjour,
J'ai trouvé une macro comparaison de fichier qui fonctionne bien
mais je voudrais y rajouter une petite subtilité.
Apres avoir comparé les fichiers je voudrais qu'il prenne chaque ligne ou il ya une difference et qui les stocke dans un 4 ieme onglet...
mes connaissance en vba sont loin de m'aider...

Pourriez vous m'aider?
Merci encore

Sub TestRésultat()
'
' Macro1 Macro
'
Dim CellPtr
Dim X
Dim Z
Dim Var
Var = InputBox(prompt:="tapez la plage de cellule a comparer (ex: A1:Z200) (Max=A1:IV30000).")
Worksheets("Fichier N°2").Select
Set X = Worksheets("Fichier N°1").Range(Var)
Set Z = Worksheets("Fichier N°2").Range(Var)
Z.Select
Selection.Interior.ColorIndex = xlNone
For CellPtr = 1 To X.Count
If X(CellPtr) = Z(CellPtr) Then
Z(CellPtr).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
Next CellPtr
Z.Select
If Selection.Interior.ColorIndex = 15 Then
MsgBox prompt:="les deux fichiers sont identiques. Il n'ya pas d'erreur."
Range("A1").Select
Else
Msg = "Il y a des erreurs"
Style = vbCritical
Title = "<<<Erreur trouvée>>>"
Réponse = MsgBox(Msg, Style, Title, Help, Context)
If Réponse = vbYes Then
Range("A1").Select
End If
End If
End Sub