Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H2:H1000]) Is Nothing Or Target.Count > 1 Then Exit Sub
On Error Resume Next
If Target.Text = "" Then Target.Hyperlinks.Delete: Exit Sub
Me.Hyperlinks.Add Target, ThisWorkbook.Path & "\" & Target.Text & ".jpg"
Target.Font.Size = 10 'taille police
End Sub