Private Sub CommandButton1_Click()
Dim mem, c As Range, i As Variant
Application.ScreenUpdating = False
With UsedRange.Columns(8)
mem = .Value 'mémorise
.Clear 'RAZ
.Columns(0).AutoFill .Columns(0).Resize(, 2), xlFillFormats 'couleurs d'origine
.NumberFormat = "0"
.Value = mem 'restitue
For Each c In .Cells
i = Application.Match(c, Feuil2.Columns(1), 0)
If IsNumeric(i) Then Hyperlinks.Add c, "", "'" & Feuil2.Name & "'!A" & i
Next
End With
End Sub