Sheets("Extraction Feuil1").Activate
ld = [tablo].Find("/Risques-psychosociaux/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("/Situations de travail identifiées/", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
lf =...