formule et userform

Bonjour cher (ère) excellien (ne),

J'aimerais un petit coup de main concernat cette formule que j'ai pris depuis un autre fil.
Lorsque je l'utilise dans mon nouveau projet, elle m'indique un erreur de synthaxe.
Sub test()

'ordre alphabetique
Sheets('feuil1').Range('A8').Select
selection.Sort Key1:=Range('A8'), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Call calculnombrefiches

'redéfini selection
Sheets('feuil1').Range('A8').Resize(rowsize:=Range('F1').Value, columnsize:=1).Select
UserForm5.ListBox1.List = selection.Value

UserForm5.Show

End Sub


J'aimerais également pouvoir afficher dans l'userform 5 la colonne B8

merci
christian