VBA copie valeurs erronées quand cellules vides

Bonjour tout le monde,

je suis devant un problème,,

j'ai une application qui recherche les valeurs d'une cellule correspondant a un identifiant dans une autre feuille excel.
Le problème c'est que pour toute identifiant (colonne p) vide, l'application me retourne des données incohérentes

Quelqu'un aurait il une idée ?

Voici mon code:

Merci d'avance🙂


With Sheets("SYZ")
Déb = 3
Fin = .Range("b" & .Rows.Count).End(xlUp).Row
End With
With Sheets("HSBC")
I = 1
Do While I < Fin
For J = Déb To Fin
If .Range("p" & I).Value = Sheets("SYZ").Range("b" & J).Value Then .Range("q" & I).Value = Sheets("SYZ").Range("c" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("b" & J).Value Then .Range("r" & I).Value = Sheets("SYZ").Range("d" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("i" & J).Value Then .Range("s" & I).Value = Sheets("SYZ").Range("j" & J).Value
If .Range("p" & I).Value = Sheets("SYZ").Range("i" & J).Value Then .Range("t" & I).Value = Sheets("SYZ").Range("k" & J).Value



Next J
I = I + 1
Loop
End With