Sub CopieFeuille()
Dim Ws As Worksheet, mydate As String
mydate = Format(Date, "dd\ - mm\ - yy")
On Error Resume Next
Set Ws = Sheets(mydate)
If Ws Is Nothing Then
Sheets("Matrice sinistre").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = mydate
With Sheets(mydate)
.Range("I1") = .Range("I1").Value
.Shapes("Bouton").Delete
End With
Else
MsgBox "Déjà créé"
Exit Sub
End If
End Sub