Selection partielle de données sur deux fichiers

Bonjour Messieurs,j'aurais besoin d'un avis exterieur sur mon code s'il vous plait. Cela fait trois jours que je relis ce code mais je ne vois pas l'erreur.Le but de mon code est de selectionner les données d'une feuille excel "Sheet1" qui est dans un fichier exterieur (FichierSource) et de ne prendre uniquement les références qui sont dans ma feuille "Tabla"Si les references sont dans les deux feuilles et que la colonne D de la feuille Sheet1 donne un zero je dois copier-coller la valeur de la colonne C correspondante de ma feuille Sheet1 dans la colonne G de ma feuille Tabla.
Exemple :
Tabla

B G
7000
7002
7003

Sheet1
B C D
7000 15000 0
7001 2000 0
7002 350 0
7003 2004 2
7003 5600 0
Je voudrais que le resultat soit :

Tabla
B G
7000 15000
7002 350
7003 5600

Il y a probablement une erreur dans ma boucle mais je ne la trouve pas. Pourriez vous m'aider ?

Sub SelectionPartielle()
Dim FichierSource As Variant
Dim WbSource As Workbook
Dim Shcible As Worksheet
Dim Cellule As Range
Dim x As Integer
Dim i As Integer
i = 2
x = 2
On Error GoTo Fin
Set Shcible = Sheets("Tabla")
FichierSource = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx")
If FichierSource = False Then GoTo Fin
Application.ScreenUpdating = False
Set WbSource = Workbooks.Open(FichierSource)
For Each Cellule In Shcible.Range("B2:B4")
For x = 2 To 1000
If Cellule.Value = WbSource.Worksheets("Sheet1").Range("B" & "x") Then
If WbSource.Worksheets("Sheet1").Range("D" & "x") = 0 Then WbSource.Worksheets("Sheet1").Range("C" & "x").Copy Destination:=Shcible.Range("G" & "i") And i = i + 1
End If
End If
Next
Next
On Error GoTo Fin Application.ScreenUpdating = True
MsgBox ("Fin")
GoTo Fin

Fin:
Application.ScreenUpdating = True
Set Shcible = Nothing Set WbSource = Nothing
End Sub

Bonjour.

i et x sont des Variables et ne Doivent pas être mis dans les crochets ("")

Range("G" & "i") ---> Range("G" & i)

La Boucle for attend une fermeture en Next et non And

Corrige d'abord tous ces détails, et reviens-nous.

je n'ai vraiment pas regardé le code en profondeur

Très bien tout fonctionne merci beaucoup !!!!

Super ! N'oublie pas de mentionner que le sujet est résolu !