programmation macro excel

Bonjour,
J'ai écrit une macro qui trie un tableau de 12lignes et de 2 colonnes.
Les cellules sont fusionnées.
Le tri a fonctionné jusqu'à ce jour mais à présent plus rien ne marche.Je n'ai rien modifié.
Voici un extrait de la macro
' TRI Macro
' Macro recorded 20/09/2004 by GEORGES Jean-François
'
' Keyboard Shortcut: Ctrl+Shift+T
'
Sheets("Récap. H").Select
Cells.Replace What:="F.G.", Replacement:="-1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A4:B15").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Key2:=Range("A4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal

Pouvez-vous me dire ce que je dois faire pour que tout fonctionne normalement
Le tableau à trier comporte une colonne de nom et une colonne de chiffres.

Merci de m'aider

Rogerone