Sub Archiver()
Dim nomE As String
Dim plage As Range
Dim dj As String
With Sheets("Dooo")
nomE = .[A1]
nomD = .[B1]
Set plage = Union(.[A1], .[B1], .[C1])
dj = Format(.[C1], "dd-mm")
End With
Sheets("Dooo").Copy after:=Sheets("Dooo")
Sheets(2).Name = nomE & " " & dj & " à " & nomD & " (" & Sheets.Count - 1 & ")"
With ActiveSheet
ActiveSheet.DrawingObjects.Delete
End With
Sheets("Dooo").Select
Range("A1").Select
End Sub