bonsoir,davidrun,rey et le forum
Sub onglet14()
On Error GoTo finerreur
Set Mafeuille = Worksheets(Application.InputBox("Entrer le NOM de l'onglet à copier", "Copie d'un onglet"))
Sheets(Mafeuille).Copy
GoTo Fin
finerreur: 'Renvoi ici si l'onglet est inexistant
MsgBox "Nom de feuille inexistante, vérifier l'orthographe ! " 'Message si la feuille est inexistante
Fin:
End Sub
@+ rudy