procedure TForm1.Button1Click(Sender: TObject); begin //Exécute la commande "Sélectionner tout" WebBrowser1.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_DODEFAULT); end;