Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("f2:f" & [a65536].End(xlUp).Row)) Is Nothing Then Exit Sub
Dim Masque As String
Dim NouvelleFeuille As String, BaseDonnees As String
Cancel = True
Target = IIf(UCase(Target) = "OK", "", "OK")
Application.ScreenUpdating = False
If Target = "OK" Then
Masque = "Masque Type " & Cells(Target.Row, 5)
NouvelleFeuille = Cells(Target.Row, 1)
Sheets(Masque).Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = NouvelleFeuille
Worksheets("Feuil1").Select
With Worksheets(NouvelleFeuille)
.[b2] = Cells(Target.Row, 1)
.[b3] = Cells(Target.Row, 2)
.[b4] = Cells(Target.Row, 3)
.[b5] = Cells(Target.Row, 4)
End With
End If
Application.ScreenUpdating = True
End Sub