XL 2016 Petite macro pour inscrire nom d'onglet

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