Sub copie()
Dim nNom$
nNom = Format(Date, "dd-mm-yy"" """) & Sheets("Rapport").Range("W8")
If Len(nNom) Then
On Error Resume Next
Application.DisplayAlerts = False
Sheets(nNom).Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets("Rapport").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = nNom
End If
With ActiveSheet
If Range("W8") = "JOUR" Then
.Tab.ColorIndex = 12
ElseIf Range("W8") = "NUIT" Then
.Tab.ColorIndex = 14
End If
End With
End Sub