VBA Excel: Attente récupération de données

Bonjour à tous,

N'étant pas très doué en macro excel, je me permer de vous demander de l'aide après avoir fouiller sur beaucoup de forum...

J'ai une macro dans laquelle je vais récupérer des valeurs (données historiques) dans un autre logiciel.
Suite à ça, je veux faire des calculs à partir de ces valeurs et faire de la mise en forme...Ca parait plutôt simple.

Sauf que je fais un copier/coller des valeurs récupérés vers une autre plage. Mais comme la recuperation prend un peu de temps, le copier/coller s'execute trop vite (avant la recuperation des données en fait..) et mes cellules de destinations ne contiennent rien, donc tout mon calcul est faux.

Je cherche donc un moyen d'être sur que la recuperation des données soit faites avant de faire le copier/coller. J'ai essayé le WAIT, le DOEVENTS, le CALCULATE, mais tout ça ne fonctionne pas dans mon cas.

Si qq1 a une idée...

Merci d'avance.

Ci dessous le code

Sub Récupération_compteur_moteur()
'
'
' MACRO RECUPERANT LES DONNEES HISTORIQUES
'
'
' Déclaration des variables

Dim Derlig As Long
Dim Données As Worksheet
Set Données = Worksheets("DATA")
Dim i As Integer
Dim j As Integer
Dim text As String
Dim calc As Long


Application.ScreenUpdating = False


' Effacement colonnes B, C, D, E, F, G et H de "DATA"
   
 Données.Range("B11:H65536").Delete

' Calcul du nombre repères

    ActiveWorkbook.Worksheets("PARAMETRAGE").Select

    Derlig = Range("C11").End(xlDown).Row
     
' Copie du repères dans "DATA"

    Range("B11:C" & Derlig).Copy
    Données.Cells(11, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


' Ecriture du chemin du logiciel extérieur

For i = 11 To Derlig
    Données.Cells(i, 7).Value = """" & Données.Cells(3, 7).Value & "." & Données.Cells(i, 2).Value & "." & Données.Cells(i, 3).Value & "." & Données.Cells(3, 8).Value & ".Value:Value" & """"
    


' Récupération de la valeur 

    text = Données.Cells(i, 7).Value
    Données.Cells(i, 8).Formula = "=RECUP(" & text & " ,NOW,,,,0,0,0,1,,,,,,,,,0,,0)"

Next i

' Copie de la valeur
    'PROBLEME ICI
       Données.Range("H11:H" & Derlig).Copy
      Données.Cells(11, 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
    

' Récupération de la valeur en hr
  
For i = 11 To Derlig

'    calc = Val(Cells(i, 6).Value)
    Données.Cells(i, 5).Value = (Val(Données.Cells(i, 6).Value)) / 3600
    
Next i

' Comparaison valeur par rapport aux seuils pour affichage icon set

For i = 11 To Derlig
    If (Données.Cells(i, 5).Value < Worksheets("PARAMETRAGE").Cells(i, 9).Value) Then
        Données.Cells(i, 4).Value = 0
    End If
    If (Données.Cells(i, 5).Value >= Worksheets("PARAMETRAGE").Cells(i, 9).Value And Données.Cells(i, 4).Value < Worksheets("PARAMETRAGE").Cells(i, 6).Value) Then
        Données.Cells(i, 4).Value = 1
    End If
        If (Données.Cells(i, 5).Value >= Worksheets("PARAMETRAGE").Cells(i, 6).Value And Données.Cells(i, 4).Value < Worksheets("PARAMETRAGE").Cells(i, 7).Value) Then
        Données.Cells(i, 4).Value = 2
    End If
    If (Données.Cells(i, 5).Value >= Worksheets("PARAMETRAGE").Cells(i, 7).Value And Données.Cells(i, 4).Value < Worksheets("PARAMETRAGE").Cells(i, 8).Value) Then
        Données.Cells(i, 4).Value = 3
    End If
    If (Données.Cells(i, 5).Value >= Worksheets("PARAMETRAGE").Cells(i, 8).Value) Then
        Données.Cells(i, 4).Value = 4
    End If
Next i


' Copie de la valeur et icon set de "DATA" vers "PARAMETRAGE"

For i = 11 To Derlig
    Données.Range("B11:E" & Derlig).Copy
    Worksheets("PARAMETRAGE").Cells(11, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i

    j = Derlig + 1
    On Error Resume Next
    Worksheets("PARAMETRAGE").Range("B" & j & ":I65536").SpecialCells(xlCellTypeConstants, 23).ClearContents

' Ecriture date actuelle

    Worksheets("PARAMETRAGE").Range("J2").FormulaR1C1 = "=NOW()"



ActiveWorkbook.Worksheets("PARAMETRAGE").Select
    

    
Application.ScreenUpdating = True

End Sub