Référence aux cellules

Bonjour,

J'essaie de débuter en VBS, et j'ai besoin de faire ceci:

J'ai un tableau à 4 colonnes. Dans la colonne 1 et la colonne 3 se trouvent des nombres croissants. J'ai trouvé et adapté un script pour comparer les 2 colonnes. Ce que je voudrais, c'est que lorsqu'un nombre de la colonne 1 est identique à celui de la colonne 3, même sur une ligne différente, le contenu de la colonne 4, situé à la même ligne que mon nombre de la colonne 3 soit copié sur la colonne 2, mais cette fois à hauteur de la colonne 1. Par exemple, si A1=C3, copier D3 dans A2.

J'ai pour l'instant le script suivant:

Sub Comparer()

Dim cell As Range

For Each cell In Worksheets("Feuil1").Range("A1:A65536")
If Not IsEmpty(cell) Then
If Application.CountIf(Worksheets("Feuil1").Range("C1:C65536"), cell) > 0 Then
cell.Offset(0, 3).Select
Selection.Copy
cell.Offset(0, 1).Select
ActiveSheet.Paste
End If
End If
Next cell
End Sub


Mais je n'arrive pas à faire référence à la cellule de la colonne 4 par rapport à celle de la colonne 3.

Une âme charitable pourrait-elle venir à l'aide d'un pauvre petit développeur perdu dans le vaste monde de Visual Basic ?

Merci infiniment !