Re : Macro pour copier et renommer un onglet ou le selectionner
Bonjour,
Peut-être ceci
Sub test()
flag = 0
nom = InputBox("Veuillez définir le nom de l'onglet")
For Each sh In ActiveWorkbook.Sheets
If nom = sh.Name Then flag = 1: Exit For
Next
If flag = 1 Then
flag = 0
Sheets(nom).Select
GoTo fin
End If
Stop
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
Sheets(nom).Select
fin:
End Sub
a+