Aide pour modofier une VBA

Bonjour à tous,

Je sollicite votre aide pour me modifier une VBA.

Je souhaiterai remplacer la formule "en gras" dans mon code par celle ci :

=SIERREUR(RECHERCHEV(B2;'05-juil'!$A$2:$H$51;5;FAUX);SI(B2<>"";"-5";""))

En réalité je remplace que la fin de la formule "en rouge"

J’espère être clair.

Merci d'avance pour vos réponses.

Bonjour,

.Offset(1).Formula = "=IFERROR(VLOOKUP(B2,'" & .Text & "'!$A$2:$H$51,5,False),IF(B2<>"""",-5,""""))"

Salut SabV

Merci pour ton aide, ça fonctionne parfaitement !!

Bonne journée.