Salut Celeda
voilà comment j'ai modifié ton exemple de code pour répondre à ton problème.
Comme tu le voulais, la première sélection est copiée en A2, ensuite les autres sélections se copient à la drenière ligne vide (j'ai d'ailleurs repris une formule donnée sur ce forum pour retrouver la première ligne vide, comme quoi rien ne se perd ici). Note que pour que cette macro fonctionne correctement, il faut que la colonne A de "Feuil3" ("sheet3" pour toi) contienne toujours une valeur.
Sub BrowseRange()
Dim Zone As Range
Dim LastLigne
Set Zone = Application.InputBox("Sélectionnez une zone !", Type:=8)
LastLigne = Worksheets("Sheet3").Range("A65534").End(xlUp).Offset(1, 0).Address
Range(Zone.Address).Copy Destination:=Worksheets("Sheet3").Range(LastLigne)
End Sub