Macro pour remplacer un lien dans une esquisse

Bonjour,

 

Je souhaite réaliser une macro pour que je n'ai plus à cliquer sur "Remplacer" puis sur "Valider" dès que SW pert le lien dans une relation géométrique et que j'édite cette relation ?

Pour débuter, il faut essayer d'enregistrer une macro par apprentissage et coller le code ici si ça ne fonctionne pas.