Microsoft 365 Problème avec < Refresh BackgroundQuery >

Bonjour,
J'ai une question svp!
J'ai écris ce code qui me permet de télécharger par le internet les données bourse de yahoo, il fonctionne à 99% des cas, mais parfois il plante je suppose un problème de débit ou connexion internet.
il plante à la ligne : .Refresh BackgroundQuery:=False
Je suis obligé de sortir d'excel en sauvant et re rentrer dans le fichier en espérant que ça ne va pas replanter!
Comment je pourrais faire avant de lancer une requète pour savoir si ça va fonctionner ?
La partie du code :

commande = "https://query1.finance.yahoo.com/v7/finance/download/" & sCode & "?period1=" & JD & "&period2=" & JF & "&interval=1d&filter=history&frequency=1d"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & commande & "", Destination:=Cells(xx, i))
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(5, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = False
.Refresh BackgroundQuery:=False
End With

Si vous pouviez me donner un coup de main ça serait sympa !
Merci de votre lecture