Bonjour creepy
Et pourquoi pas instr ?
Cette solution détaillée ne me parait pas très lourde, aà moins que j'ai négligé quelque chose!
Sub deb()
maphrase = ActiveCell
vdeb = '<LANGID>'
vfin = '</LANGID>'
lvfin = Len(vfin)
d = InStr(1, maphrase, vdeb)
f = InStr(1, maphrase, vfin)
mavariable = Mid(maphrase, d, f + lvfin)
MsgBox mavariable
End Sub