pour le 2/: je suggère de rajouter le nouveau à la suite de la liste puis de trier la nouvelle liste suivant le tri souhaité (ici tri sur colonne A puis B, par ex). En supposant que les onglets soit feuil1, feuil2, ...feuil10 :
Sub nouveaunom()
nom = InputBox("Entrez le nouveau nom :")
For i = 1 To 10
Sheets("Feuil" & i).Activate
ligne = Sheets(i).Range("A65536").End(xlUp).Row
Cells(ligne + 1, 1).Select
ActiveCell.Value = nom
Range(Cells(1, 1), Cells(ligne + 1, 10)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Next i
End Sub