Tri de données avant copie VBA/excel

Bonjour a tous,

Je programme depuis peu sous Excel VBA et j'ai donc un petit problème (sinon je ne lancerai pas un nouveau sujet)

J'ai un fichier "SUIVI" dans lequel j'ai un bouton qui doit me permettre de rapatrier des données d'un fichier "DONNEE". Les nouvelles données sont sur les colones A à H et doivent être triées en fonction de la colone B avant d'être copiées dans le fichier "SUIVI".

Mon code marche jusqu'à la ligne 13...  

Dim FichierDeDonnee
FichierDeDonnee = Application.GetOpenFilename(, , "Sélectionnez votre source de données")
If FichierDeDonnee <> False Then
Workbooks.OpenText Filename:=FichierDeDonnee, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
        TrailingMinusNumbers:=True
MsgBox FichierDeDonnee
 
  Activesheet.Columns("A:H").Select
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Else
    MsgBox "Vous n'avez pas sélectionné de fichier"
  End If

Merci de votre aide... j'en ai besoin...