Remplacer le nom de la feuille dans une recherchV

bonjour

j'essaye de créer un fichier pour mes collègues du stock qui non aucune notion de vba.

je bloque sur ma rechercheV.

Pour que mes collègues ne soient pas obligés de modifier le Vba j'ai essayé de mettre le nom de ma feuille dans une dans cellule en A21

Sub Rapprochement()

 Dim ligne As Long

 nom_feuille = Cells(1, 21).Value

 ligne = 5

Do While Cells(ligne, 2).Value <> ""

'rapprochement
With Cells(ligne, 22)
 .Formula = "=IFERROR(VLOOKUP(RC[-20],'Sheets(nom_feuille)'!R1C2:R10000C5,4,FALSE),"""")"
   .Value = .Value
End With

 'remplacement de 
'With Cells(ligne, 22)
 '.Formula = "=IFERROR(VLOOKUP(RC[-20],'Inv du 20-10 à la date 15-11'!R1C2:R10000C5,4,FALSE),"""")"
   '.Value = .Value
'End With

ligne = ligne + 1
Loop

End Sub

ci-joint le fichier

Par avance, merci de votre aide

philippe87

bonjour,

remplace ton instruction par celle-ci

 .Formular1c1 = "=IFERROR(VLOOKUP(RC[-20],'" & nom_feuille & "'!R1C2:R10000C5,4,FALSE),"""")"

Bonjour H2so4

ok ça fonctionne pour moi

merci pour ton aide

philippe87