Le temps de traitement est de 4 secondes chez moi.
Option Explicit
Sub Test()
Dim HeureDebut, HeureFin, TempsTotal
HeureDebut = Timer ' Définit l'heure de début.
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
RechercheGDHEnsoleillement
RechercheGDHCourbeDeCharge
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
HeureFin = Timer
TempsTotal = HeureFin - HeureDebut
Debug.Print "Temps total du traitement : " & Round(TempsTotal, 0) & " seconde(s)"
End Sub