Bjr
voici un nouveau code en restant sur la même feuille
une fois la valeur ajoutée il suffit de faire un double-clic sur n'importe quel cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("B5:C22").Select 'plage par exemple où sont tes noms et adresses
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'B5 est la cellule où il y a le premier nom
Range("B5").Select
End Sub