Private Sub CommandButton1_Click() 'bouton Liens
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [Sommaire]
If c <> "" Then If c.Hyperlinks.Count Then d(c.Value) = c.Hyperlinks(1).Address 'mémorise l'adresse du lien
Next c
For Each c In [Procédures_Applicable_HSE]
If d.exists(c.Value) Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
For Each c In [Procédures_Applicable_M_V]
If d.exists(c.Value) Then c.Hyperlinks.Add c, d(c.Value) 'crée le lien
Next c
End Sub