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

Private Sub CommandButton9_Click()

'Déclaration des variables
Dim i As Long 'Ligne i de la colonne Q
Dim j As Long ' Compteur

' PROGRAMME réaliser par le bouton Filtrer
For i = 13 To [Q65536].End(xlUp).Row
 If Cells(i, 18).Value = "x" Then
    Range("A"&i:"P"&i).Select  'COMMENT FAIS TU DANS CE CAS POUR INDIQUER LA CELLULE ETANT DONNE QUE I EST UNE VARIABLE?
    Selection.Copy
    Sheets("Notice d'utilisation").Select
    Range("A1").Select
    ActiveSheet.Paste

Next i

End Sub

Sub CopierColler()
Dim i&
Z = 1
 LigneFeuille1 = 2
    Sheets("TA_FEUILLE_DORIGINE").Select
    
      For i = 0 To [I65536].End(xlUp).Row
        
        If Range("i2").Offset(i, 0).Value = "x" Then
            Range("i2").Offset(i, 0).EntireRow.Copy
            Sheets("TA_FEUILLE_DE_DESTINATION").Select
            Cells(LigneFeuille1, 1).EntireRow.Insert Shift:=xlDown
            Sheets("TA_FEUILLE_DORIGINE").Select
            Z = Z + 1
        End If
        
    Next
End Sub

Private Sub CommandButton9_Click()
    CopierColler()
End Sub

Private Sub CommandButton9_Click()
    CopierColler
    'ou Call CopierColler
     'ne jamais mettre () lors de l'appelle d'une macro dans une autre
End Sub

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("i2").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("i2").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