Faire correspondre deux colonnes dans excel 2010

Sub Bouton1_Clic()
Application.ScreenUpdating = False

' ci-dessous on efface le contenu des colonnes F, G & H
Range("F2:H" & Range("F65535").End(xlUp).Row + 1).ClearContents

'ensuite on recopie le contenu de la colonne A dans la colonne F
    Range("A2:A" & Range("A65535").End(xlUp).Row).Select
    Selection.Copy
    Range("F2").Select
    ActiveSheet.Paste
    
'ensuite on fait une boucle pour toutes les valeurs contenues en colonne A
For i = 2 To Range("A65535").End(xlUp).Row

' également une boucle pour toutes les cellules de la colonne C
    For j = 2 To Range("C65535").End(xlUp).Row
    
' on teste si égalité entre les cellules
        If Cells(j, 3) = Cells(i, 1) Then
        
            ' alors on met le contenu des colonnes B & C dans les colonnes G & H
            Range("G" & i) = Cells(i, 2)
            Range("H" & i) = Cells(j, 3)
        End If
    Next j
Next i

Application.CutCopyMode = False
[A1].Select
Application.ScreenUpdating = True
End Sub