Une feuille de résultats pour un nombre de feuille aléatoir

Sub extraire()
Application.ScreenUpdating = False
derlig = IIf([A65000].End(xlUp).Row <= 52, 53, [A65000].End(xlUp).Row + 1)
Range("A53:G" & derlig).ClearContents
For Each sh In Sheets
    If sh.Name <> "Résultat" Then
        derlig = IIf([A65000].End(xlUp).Row <= 52, 53, [A65000].End(xlUp).Row + 1)
        With Range("A" & derlig)
            .Value = sh.Name
            .Offset(0, 1).Value = sh.[D5]
            .Offset(0, 2).Value = sh.[E6]
            .Offset(0, 3).Value = sh.[F9]
            .Offset(0, 4).Value = sh.[J11]
            .Offset(0, 5).Value = sh.[H4]
            .Offset(0, 6).Value = sh.[M2]
        End With
    End If
Next sh
End Sub
Function SommeCelToutesFeuilles(Rg As Range)
Application.Volatile
Dim F As Worksheet, X As Double
For Each F In Sheets
         If F.Name <> "Résultat" Then X = X + Application.Sum(F.Range(Rg.Address))
Next
SommeCelToutesFeuilles = X
End Function

=SommeCelToutesFeuilles(D5)