[G.David]

Salut jean -marie
le tableau est un calcul fait sur un feuille de donnée

Dim donnee(200)
'
    ChDir 'C:\\david excel\\Jean-pierre'
    Workbooks.OpenText Filename:='C:\\david excel\\Jean-pierre\\hELLA GM Emp 53.PRF' _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
        If Range('a65536').Value = '' Then
        fin = Range('a65536').End(xlUp).Row - 3
        ElseIf Range('a65536').Value = 'EOF' Then
        fin = 65534
        ElseIf Range('a65536').Value = 'EOR' Then
        fin = 65535
        Else
        fin = 65536
        End If
        pas = Int((fin - 10) / 200)
        plage = Int(pas / 2)
        For t = 11 + plage To fin Step pas
        a = Range('a' & t - plage & ':a' & t + plage)
        For Each cell In a
        u = u + 1
        p = p + cell
        Next
        o = o + 1
        donnee(o) = p / u
        p = 0
        u = 0
        Next

voici son generateur
c'est pour le poser sur la feuille de calcul que ça coince
G.David