XL 2016 VBA PI DataLink : Probleme Application.Screenupdating avec procédure de MAJ plage

Sub Refresh()
Dim addIn As COMAddIn
Dim automationObject As Object
Dim wsDatas As Worksheet
Dim wsTDB As Worksheet
Dim MyRange1 As Range
Dim MyRange2 As Range
Set addIn = Application.COMAddIns("PI DataLink")
Set automationObject = addIn.Object
Set wsDatas = ThisWorkbook.Worksheets("DATAS")
Set wsTDB = ThisWorkbook.Worksheets("TDB")
Set MyRange1 = wsDatas.Range("R30")
Set MyRange2 = wsDatas.Range("T30")
Application.ScreenUpdating = False
wsTDB.Range("P1").Calculate
wsTDB.Range("P2").Calculate
wsDatas.Range("A1:B2,C2:V2").Calculate
wsTDB.Range("A11:B22").Calculate
wsDatas.Range("B4:B16").Calculate
If (Left(Worksheets("TDB").Range("P1"), 4) = "BT >") Then
    With MyRange1
        automationObject.SelectRange
        automationObject.ResizeRange
        End With
    With MyRange2
        automationObject.SelectRange
        automationObject.ResizeRange
    End With
Else
'
End If
Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = True
End Sub

Sub ResizeAll()
    Dim addIn As COMAddIn
    Dim automationObject As Object
    Set addIn = Application.COMAddIns("PI DataLink")
    Set automationObject = addIn.Object
    'To adjust this subroutine to another Excel worksheet, update the cell references in allRanges to reflect the top left cell of each DataLink array.
    'Then change the array size in the below line:
    Dim allRanges(1 To 2) As Range
    Dim i As Long
 
    'Set the values of the allRanges array to the top left cell of each DataLink result array.
    Set allRanges(1) = Sheets("DATAS").Range("R30")
    Set allRanges(2) = Sheets("DATAS").Range("T30")
'    Set allRanges(3) = Range("E21")
'    Set allRanges(4) = Range("M2")
'    Set allRanges(5) = Range("P2")
'    Set allRanges(6) = Range("R2")
'    Set allRanges(7) = Range("V2")
    
    For i = LBound(allRanges) To UBound(allRanges)
        'For each DataLink array, select the top left cell, then select all cells in the array, and finally resize the array.
        allRanges(i).Select
        automationObject.SelectRange
        automationObject.ResizeRange
    Next i
End Sub

Option Base 1
Sub ResizeAll()
    Dim addIn As COMAddIn
    Dim automationObject As Object
    Set addIn = Application.COMAddIns("PI DataLink")
    Set automationObject = addIn.Object
    'To adjust this subroutine to another Excel worksheet, update the cell references in allRanges to reflect the top left cell of each DataLink array.
    'Then change the array size in the below line:
    Dim allRanges(2)
    Dim i As Long
    'Set the values of the allRanges array to the top left cell of each DataLink result array.
    allRanges(1) = Sheets("DATAS").Range("R30").Address
    allRanges(2) = Sheets("DATAS").Range("T30").Address
    For i = LBound(allRanges) To UBound(allRanges)
        'For each DataLink array, select the top left cell, then select all cells in the array, and finally resize the array.
        Sheets("DATAS").Range(allRanges(i)).Select
        automationObject.SelectRange
        automationObject.ResizeRange
    Next i
End Sub

Option Base 1
Sub ResizeAll_test()
   ' Dim addIn As COMAddIn
    'Dim automationObject As Object
    'Set addIn = Application.COMAddIns("PI DataLink")
   ' Set automationObject = addIn.Object
    'To adjust this subroutine to another Excel worksheet, update the cell references in allRanges to reflect the top left cell of each DataLink array.
    'Then change the array size in the below line:
    Dim allRanges(2)
    Dim i As Long
    'Set the values of the allRanges array to the top left cell of each DataLink result array.
    allRanges(1) = Sheets("DATAS").Range("R30").Address
    allRanges(2) = Sheets("DATAS").Range("T30").Address
    For i = LBound(allRanges) To UBound(allRanges)
        'For each DataLink array, select the top left cell, then select all cells in the array, and finally resize the array.
       MsgBox Sheets("DATAS").Range(allRanges(i)).Address 'Select
       ' automationObject.SelectRange
        'automationObject.ResizeRange
    Next i
End Sub