Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim ws As Worksheet
Dim wsexist As Boolean
Application.ScreenUpdating = False
If Not Intersect(Target, Range("G9")) Is Nothing Then
For Each r In Range("F9:F18")
wsexist = False
If r.Value <> "" Then
For Each ws In ThisWorkbook.Worksheets
If ws.Name = r.Value Then
wsexist = True
Exit For
End If
Next ws
If Not wsexist Then
Worksheets("Modèle").Copy After:=Sheets("Nouvel onglet")
ActiveSheet.Name = r.Value
End If
End If
Next r
Cancel = True
End If
Application.ScreenUpdating = True
End Sub