Bonjour à toutes et à tous,
J'ai un problème avec le programme ci-dessous.
Sheets("Extraction Feuil1").Activate
ld = [tablo].Find("/Risques-psychosociaux/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("/Situations de travail identifiées/"...