Erreur 1004-La méthode Sort de la classe Range a échoué

Bonjour,

Excel2013

J'ai un code VBA :


Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
If sh.Name Like "##" Then

With sh
.Range("D3:P41").Sort key1:=.Range("D3"), order1:=xlAscending, Header:=xlNo
End With
End If

End Sub


Et chaque fois cela m'indique Erreur d’exécution 1004
La méthode Sort de la classe Range a échoué. Etant novice là dessus je voudrais savoir si quelqu'une ou quelqu'un puisse m'aider.
Merci