Je souhaiterais avoir une aide pour combiner ces deux macro ci joint
Merci d'avance
Sub onglet()
On Error GoTo finerreur
Sheets.Add
ActiveSheet.Select
ActiveSheet.Move After:=Worksheets(Worksheets.Count)
ActiveSheet.Select
Nouveaunom = Application.InputBox("Entrer le nouveau nom", "Renommer un onglet")
ActiveSheet.Name = Nouveaunom
GoTo Fin
finerreur: 'Renvoi ici si l'onglet est inexistant
MsgBox "Nom de feuille déjà existante !" 'Message si la feuille déjà existante
Application.DisplayAlerts = False
ActiveSheet.Delete
Fin:
End Sub
Sub copier()
Sheets("1er tri").Select
Sheets("1er tri").Copy After:=Sheets(7)
Sheets("1er tri (2)").Select
Sheets("1er tri (2)").Name = "jaja" ' ou un autre nom au choix
Range("C81").Select
End Sub