Option Explicit
Sub Onglet_dupliquer()
On Error Resume Next
With Sheets("Recu")
If .Range("b2") = "" Then
MsgBox "Renseigner la cellule b2 !"
.Range("b2").Select
Exit Sub
Else
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Range("b2").Value
ActiveSheet.DrawingObjects.Delete
End If
End With
If ActiveSheet.Name Like "Recu (*)" Then
MsgBox "Choisir un autre nom !"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("Recu").Activate
End If
On Error GoTo 0
End Sub