Disfonctionnement d'une macro

Bonjour,

Depuis plusieurs années j'enregistre des macros.

Je ne comprends pas pourquoi la macro suivante,(par exemple) ne fonctionne pas:

Sub Macro2()

Range("D29:F32").Select

Selection.Copy

Range("D34").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWorkbook.Worksheets("94").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("94").Sort.SortFields.Add Key:=Range("F34:F37"), _

SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("94").Sort.SortFields.Add Key:=Range("E34:E37"), _

SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("94").Sort

.SetRange Range("D34:F37")

.Header = xlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

En réalité elle fonctionne une fois, la fois suivante elle bloque sur la 4e ligne.

Merci pour toute aide.

Bonsoir

Pas de souci particulier avec cette macro

Il faudrait fournir le fichier en cause et détailler les opérations à faire pour arriver au plantage