Bonjour à tous,
Comme promis, un petit retour suite à mes essais.
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Range("'Liste Codes cpta'!B2:C15"), 2, 0)
Désolé, mais cela ne fonctionne pas,... apparemment à cause du Range et de ce qui suit
Target.Offset(, 1) = WorksheetFunction.VLookup(Target, ['Liste Codes cpta'!B2:C15], 2, 0)
Parfait C'est nickel-chrome je n'aurais pas trouvé avec la nécessité de mettre des [....] et un ' au début mais pas à la fin.
Dim rng As Range
Set rng = Worksheets("Liste code cpa").Range("B2:C15")
Target.Offset(, 1).Value = WorksheetFunction.VLookup(Target, rng, 2, 0)
A l'avantage de bien afficher en clair la feuille et le cadre..... sans doute plus facile en cas de changement
Merci à tous, j'ai encore appris quelque chose
Excellente journée
Tonthon