Problème sous totaux VBA

Bonjour,
J'ai un problème qui est sûrement très simple à résoudre, mais je comprends pas pourquoi la macro réagit comme ça!!!
Je suis en train de rédiger une macro qui copie une feuille (feuille marge), effectue un trie puis reporte les données répondant à la sélection sur une autre feuille(feuille ramasse). Après Sur la feuille "planning", je fais des sous totaux et après je voudrais reporter les sous totaux sur la feuille "ramasse" avec une sorte de recherche V qui retrouverait le bon code voyage auquel le sous total doit être reporté....le p^roblème, c'est que ma macro me fait bien les sous totaux sur le feuille "planning", mais impossible de SELCTIONNER par exemple la cellule A1 à la fin du traitement qui me permettrai ensuite de continuer mon code pour faire la recherche V ensuite(parce qu'il faut bien que je remonte en haut de la feuille "planning"... Donc j'ai mis un msgbox "fin de traitement" pour voir si la lecture de la macro allait bien jusqu'au bout...et il affiche bin le message "fin de traitement" MAIS NE ME SELECTIONNE PAS LA CELLULE A1 juste avant...
:( C'est peut être une erreur toute bête...mais je ne trouve pas et ça me bloque!!!

Je vous met le code... en espérant que qq'1 vienne à mon aide!!!

Merci beaucoup par avance!!

Sub ANALYSE_RAMASSE()

' Annulation du filtrage éventuel sur la feuille RAMASSE
Sheets("MARGE").Select ' Sélection feuille MARGE
On Error Resume Next ' Pour éviter une erreur sur la ligne suivante (erreur si données non filtrées)
ActiveSheet.ShowAllData ' Annulation du filtrage

' Suppression du contenu éventuel de la feuille RAMASSE
Sheets("RAMASSE").Select ' Sélection feuille RAMASSE
Cells.Select ' Sélection de la feuille entière
Selection.Delete ' Suppression de la feuille entière
Range("A1").Select ' Sélection cellule A1
ActiveCell.Value = "Date" ' Stockage libellé Date en cellule active
Range("B1").Select ' Sélection cellule B1
ActiveCell.Value = "Code voyage" ' Stockage libellé Code voyage en cellule active
Range("C1").Select ' Sélection cellule C1
ActiveCell.Value = "Libellé voyage" ' Stockage libellé Libellé voyage en cellule active
Range("D1").Select ' Sélection cellule D1
ActiveCell.Value = "Cout ramasse" ' Stockage libellé Cout ramasse en cellule active
Range("E1").Select ' Sélection cellule E1
ActiveCell.Value = "Nb palette" ' Stockage libellé Nb palette en cellule active
Range("F1").Select ' Sélection cellule F1
ActiveCell.Value = "Coût / palette" ' Stockage libellé Nb palette en cellule active
Range("A1:F1").Select
Selection.Interior.ColorIndex = 37
Selection.Font.ColorIndex = 11
Selection.Font.Size = 12
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlCenter

'Mise en forme de la ligne de titre
With Selection.Borders(xlInside)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With


With Selection.Borders(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With


Columns("A:A").ColumnWidth = 12
Columns("B:B").ColumnWidth = 15
Columns("C:C").ColumnWidth = 33
Columns("D:D").ColumnWidth = 16
Columns("E:E").ColumnWidth = 12
Columns("F:F").ColumnWidth = 15


Range("A2").Select ' Sélection cellule A2


Sheets("PLANNING").Select ' Sélection feuille RAMASSE
Selection.RemoveSubtotal
'Recherche de la première ligne vide
Range("A1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop

'Définition de la zone à trier
Set ZONE = Range(Cells(1, 1), ActiveCell.Offset(-1, 18))
ZONE.Select

'Tri sur la date puis sur le code voyage
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range _
("I2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal

'Mise en place de la totalisation par code voyage (Données/Sous totaux)
Selection.Subtotal GroupBy:=9, Function:=xlSum, TotalList:=Array(17), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True


Range("A1").Select

' Parcours séquentiel de la feuille MARGE et report sur la feuille RAMASSE
Sheets("MARGE").Select ' Sélection feuille MARGE

Range("A2").Select ' Sélection cellule A2
Do While ActiveCell.Value <> ""
' Récupération des informations concernant le MARGE
DATE_VOYAGE = Left(ActiveCell.Value, 10) ' Date voyage
ActiveCell.NumberFormat = "dd/mm/yyyy" ' Format date
ActiveCell.Offset(0, 1).Select ' Passage à la colonne suivante
CODE_VOYAGE = ActiveCell.Value ' Code voyage
ActiveCell.Offset(0, 1).Select ' Passage à la colonne suivante
LIBELLE_VOYAGE = ActiveCell.Value ' Libellé voyage
ActiveCell.Offset(0, 2).Select ' Passage à la colonne suivante
TYPE_VOYAGE = ActiveCell.Value ' Type voyage
ActiveCell.Offset(0, 4).Select ' Passage à la colonne suivante
COUT_RAMASSE = Right(ActiveCell.Value, 5) ' Cout ramasse
ActiveCell.NumberFormat = "00,00" ' Format du coût


'MsgBox ("2 gauche code voyage : " + Left(CODE_VOYAGE, 2))
'MsgBox ("2 droite code voyage : " + Right(CODE_VOYAGE, 2))

If Left(CODE_VOYAGE, 2) >= 0 And Left(CODE_VOYAGE, 2) <= 99 And Right(CODE_VOYAGE, 2) <> "RA" Then
' Passage à la feuille RAMASSE et report
Sheets("RAMASSE").Select ' Sélection feuille RAMASSE
ActiveCell.Value = DATE_VOYAGE
ActiveCell.Offset(0, 1).Select ' Décalage d'une cellule vers la droite
ActiveCell.Value = CODE_VOYAGE
ActiveCell.Offset(0, 1).Select ' Décalage d'une cellule vers la droite
ActiveCell.Value = LIBELLE_VOYAGE
ActiveCell.Offset(0, 1).Select ' Décalage d'une cellule vers la droite
ActiveCell.Value = COUT_RAMASSE
ActiveCell.Offset(0, 1).Select ' Décalage d'une cellule vers la droite
ActiveCell.Offset(1, -4).Select ' Passage à la ligne suivante (colonne A)

Sheets("MARGE").Select
ActiveCell.Offset(1, -8).Select

Else

ActiveCell.Offset(1, -8).Select

End If

ActiveCell.Offset(1, -8).Select
Sheets("MARGE").Select
Range("A1").Select

Loop



Sheets("PLANNING").Select
Range("A1").Select
MsgBox ("Fin de traitement ") 'Ce message s'affiche bien



End Sub