Bonjour
Pour l'exemple, je suis passé par une autre cellule (pour désélectionner la plage de départ)
Sub Macro1()
Dim MaPlage As Range
Set MaPlage = Selection
ActiveWorkbook.Names.Add Name:="MaPlage", RefersToR1C1:=MaPlage
Range("G8").Select
MaPlage.Select
End Sub
Cordialement