Mettre en évidence des similitudes entre 2 colonnes Excel [VBA]

Sub CopierColler()
Dim i&
Z = 1
 LigneFeuille1 = 2
    Sheets("Fichier").Select
    
      For i = 0 To [Q65536].End(xlUp).Row ' Parcours de la colonne Q de la feuille 1
       
        If Range("Q" & i).Offset(i, 0).Value = "x" Then ' Test qui doit parcourir la colonne Q entièrement pour savoir si les valeurs des cellules sont équivalement à Q
           Range("Q" & i).Offset(i, 0).EntireRow.Copy ' Si c'est le cas je souhaite copier la ligne, de la colonne A à P vers le fichier 2
           Sheets("Filtre").Select
            Cells(LigneFeuille1, 1).EntireRow.Insert Shift:=xlDown
            Sheets("Fichier").Select
            Z = Z + 1 ' Permet copier les lignes sur la feuille 2, les une après les autres 
       End If
        
    Next
End Sub

Sub CopierColler()
Dim i&
LigneFeuille1 = 2 'utile uniquement si tu as en ligne une les entêtes de chaque colonne
    Sheets("Fichier").Select
    
      For i = 0 To [Q65536].End(xlUp).Row ' Parcours de la colonne Q de la feuille 1
      
        If Range("Q" & i).Offset(i, 0).Value = "x" Then ' Test qui doit parcourir la colonne Q entièrement pour savoir si les valeurs des cellules sont équivalement à Q
          Range("Q" & i).Offset(i, 0).EntireRow.Copy ' Si c'est le cas je souhaite copier la ligne, de la colonne A à P vers le fichier 2
          Sheets("Filtre").Select
            Cells(LigneFeuille1, 1).EntireRow.Insert Shift:=xlDown
            Sheets("Fichier").Select
      End If
        
    Next
End Sub

Private Sub CommandButton9_Click()
'Bouton de commande "Filtrer"

'Déclaration des variables
Dim i As Long
Dim j As Long
Dim plage As Range


Application.ScreenUpdating = False

'PROGRAMME réaliser par le bouton Filtre
j = 1
For i = 13 To [Q20000].End(xlUp).Row
    If Cells(i, 17).Value = "x" Then
        Set plage = Range("A" & i & ":P" & i)
        plage.Copy
        Sheets("Résultat").Select
        ActiveSheet.Cells(j, 1).Select
        ActiveSheet.Paste
        j = j + 1
    End If
Next i
 
Application.ScreenUpdating = True
End Sub