Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, a$
Set r = Range("A2", Range("A" & Rows.Count).End(xlUp)(2))
Set r = Intersect(Target, r)
If r Is Nothing Then Exit Sub
On Error Resume Next
For Each r In r 'si entrées multiples (copier-coller)
If r <> "" Then
a = "#'" & r & "'!A1"
Me.Hyperlinks.Add r, "", a, a
If IsError(Sheets(r.Text)) Then
Application.ScreenUpdating = False
Sheets("modèle fiche").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = r
Me.Activate
End If
End If
Next
End Sub