Bonjour,
Comme ça? Désolé, je ne comprends pas vraiment pour les balises ( je ne suis pas un habitué :))
[ code]Sheets("Extraction Feuil1").Activate
ld = [tablo].Find("/Risques-psychosociaux/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd =...