Copier /coller une rangé d'une colonne d'un sheet a à un sheet b

Bonjour à tous,

Je débute sur VBA et je galère depuis un moment à copier/coller des colonnes d'un sheet "a" à un sheet "b" si les libellé des colonnes est le même :
"
For i = 1 To 16
For j = 1 To 16
If Data.Sheets("A").Cells(3, i).Value = Data.Sheets("B").Cells(1, j).Value Then
Sheets("A").Range("j2:j10000").Copy Sheets("B").Range("i4:i10000")
End If
Next
Next
"
Je pense que le souci réside dans mes indices "I" et "j" que j'utilise dans