'For i = 1 To table1Rows
'table1(i + 1, 28)
table1(2, 28)= SI(W2="OK";GAUCHE(A2&"             ";12)&";"&B2& ";"&AN2& ";"&Q2& ";"&GAUCHE(D2&"                    ";20)&";"&TEXTE(C2;"JJ/MM/AAAA")&";"&DROITE("          "&TEXTE(AX2;"0,000000");16)&";"&DROITE("          "&TEXTE(AP2;"0,00");12)&";"&DROITE("          "&TEXTE(AR2;"0,00");12)&";"&DROITE("          "&TEXTE(AT2;"0,00");12)&";"&AU2& ";"&AV2& ";";"")

Option Explicit

Public Sub PrintMeUsefulFormula()

    Dim strFormula  As String
    Dim strParenth  As String

    strParenth = """"

    strFormula = Selection.FormulaLocal
    strFormula = Replace(strFormula, """", """""")

    strFormula = strParenth & strFormula & strParenth
    Debug.Print strFormula

End Sub