XL 2013 VBA VLOOKUP

[Kidcarotte]

Hello la compagnie

J'essaie de faire une fonction VLookUp mais cela ne fonctionne pas comme je le souhaiterai (comme toujours)

Le code "s'execute" sans message d'erreur, mais il n'y a aucun resultat. La colonne J reste vide.
Si vous avez des suggestions.
Voici le code en question

</>
Sub Create_Report_Jess()
On Error Resume Next
Set S1 = Sheets("Ship Plan")
Set S2 = Sheets("Report")
Set S3 = Sheets("Button")
Dim Dept_Row As Long
Dim Dept_Clm As Long

Table1 = S2.Range("I2", S2.Range("I2").End(xlDown)).Select
Table2 = S3.Range("A10:B40")
Dept_Row = S2.Range("J2").Row
Dept_Clm = S2.Range("J2").Column
For Each C1 In Table1
S2.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(C1, Table2, 2, False)
Dept_Row = Dept_Row + 1

Next C1

End Sub

 

[Kidcarotte]

Super Merci beaucoup c'est super efficace

Par contre j'ai remarque une petite chose dans la fonction Index,
Lorsqu'il y a des blancs dans les lignes, la fonction ne les ignores pas et considere comme si c'etait la fin du tableau

Vous savez comment je peux faire en sorte pour que la fonction se "rendent compte" que c'est juste un blanc et pas la fin