Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim NomFeuille As String, Ville As String
Dim MaDate As Date
MaDate = Cells(Target.Row - 2, Target.Column).Value
Ville = Cells(Target.Row, 1).Value
NomFeuille = Ville
Sheets("Modele").Select
Sheets("Modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
Sheets(NomFeuille).Range("b1").Value = Ville
Sheets(NomFeuille).Range("b2").Value = MaDate
End Sub