Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim o As Object 'déclare la variable o (Onglet)
Set plg = _
Application.InputBox("Sélectionnez une plage !", _
"Effacement de la sélection", Type:=8)
For Each cel In plg 'boucle 1 : sur toutes les cellules de la plage plg
For Each o In Sheets 'boucle 2 sur tous les onglets du classeur
If o.Name = cel.Value Then 'condition : si le nom du classeur est égal à la valeur de la cellule cel
Application.DisplayAlerts = False 'masque les messages Excel
o.Delete 'supprime l'onglet o
Application.DisplayAlerts = True 'affiche les messages Excel
Exit For 'sort de la boucle 2
End If 'fin de la condition
Next o 'prochain onglet de la boucle 2
Next cel 'prochaine cellule de la boucle 1
plg.ClearContents
End Sub