RechercheV dans macro

C'est encore moi !
Je ne m'en sors pas de cette macro
Tout d'abord merci =E0 Nicolas B.
pour la s=E9lection de la derni=E8re ligne, =E7a marche impec
MAIS
la formule de recherche me donne de drole de r=E9sultat :=20
je veux dire=20
RECHERCHEV A2 DANS FEUILLE (D=E9compteD)=20
SI EXISTE, alors COPIE VALEUR COLONNE 3 (C)
et
RECHERCHEV A2 DANS FEUILLE (D=E9compteD)=20
SI EXISTE, alors COPIE VALEUR COLONNE 4 (D)
SINON
RECHERCHEV A2 DANS FEUILLE (D=E9comptePU)=20
SI EXISTE, alors COPIE VALEUR COLONNE 3 (C)
et
RECHERCHEV A2 DANS FEUILLE (D=E9comptePU)=20
SI EXISTE, alors COPIE VALEUR COLONNE 4 (D)
SINON RIEN
ET FAIS CELA DANS TOUTES LES FEUILLES SAUF (D=E9compteD)ET=20
(D=E9comptePU)
---
la macro que j'ex=E9cute, me donne toujours le r=E9sultat de=20
la colonne 3 (C) dans chaque feuille en colonne D et=20
#VALEUR en colonne C
---
Voici la macro :
Sub MAJStock()
'
Dim f As Variant

Dim D As Variant
Dim PU As Variant

For Each f In Sheets
If f.Name <> "D=E9compteD" And f.Name <> "D=E9comptePU" Then
f.Select
D =3D Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
A2,D=E9compteD!A:D,3,TRUE)),"""",VLOOKUP(" & f.Name & "!
A2,D=E9compteD!A:D,3,TRUE))")

PU =3D Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
A2,D=E9comptePU!A:D,3,TRUE)),"""",VLOOKUP(" & f.Name & "!
A2,D=E9comptePU!A:D,3,TRUE))")

If D <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) =3D [C]
ElseIf PU <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) =3D [C]
Range("D" & Range("D65536").End(xlUp).Row + 1) =3D [D]
End If
End If
Next
End Sub
--------
Voyez vous pourquoi ???
D'avance merci =E0 ceux qui m'aideront sur ce cas.
Francoise