simplification texte VBA

Bonjour,
Je cherche à attribuer des noms de plage sur différentes feuilles.
Voici ce que donne l'enregistreur....
Est-il possible d'alléger et de rendre plus "académique", svp ?
Grand merci
-------------------------
Sub test_nom()

Range("A1:A10").Select 'feuil1
ActiveWorkbook.Names.Add Name:="dat", RefersToR1C1:="=Feuil1!R1C1:R10C1"

Sheets("Feuil2").Select
Range("B1:B15").Select
ActiveWorkbook.Names.Add Name:="noms",
RefersToR1C1:="=Feuil2!R1C2:R15C2"

Range("C5").Select
End Sub
-------------------------
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.