Besoin d'aide sur vba

Bonjour,
Dans un tableau excel ayant plusieurs onglets,j'ai créé un bouton dans l'onglet 1 je lui ai ensuite associé un programme qui ouvre une boite de dialogue pour demander le noms d'une personne mon but est que ce nom vienne s'inscrire dans une liste qui se trouve sur un autre onglet.
J'espere avoir été assé clair et que quelq'un me vienne en aide.

Sub JYL()
rep = InputBox("NOM")
Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").EntireRow.Insert
Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").Value = rep


Rows("23:235").Select
Selection.EntireRow.Hidden = False
ActiveWindow.SmallScroll Down:=6
Range("B24:B100").Select
Selection.Sort Key1:=Range("B24"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=-3
Rows("24:100").Select
Selection.EntireRow.Hidden = True
Range("I103").Select
Sheets("Sommaire").Select
If rep = "" Then Exit Sub
End Sub