BESOIN D AIDE MACRO EXCEL

Sub export_donnees()
Dim Cel As Range, C As Range, Plg As Range, DerLig As Long
ReDim Tblo(0)
Dim Fixe As String
Dim I As Long
Fixe = "AERA;2012;"
DerLig = Cells(Rows.Count, 2).End(xlUp).Row
For Each Cel In Range("B4:B" & DerLig)
    Set Plg = Cel.Offset(, 7).Resize(1, 7)
    If Application.CountA(Plg) > 0 Then
        For Each C In Plg.SpecialCells(xlCellTypeConstants, 23)
            If C > o Then
                Tblo(I) = Fixe & Cel & ";" & Cel.Offset(, 2) & ";" & Cells(2, C.Column) & ";" & C
                I = I + 1
                ReDim Preserve Tblo(0 To I)
            End If
        Next C
    End If
Next Cel
Open "C:\Users\TonNom\Documents\Exemple\exportFeuille.txt" For Output As #1 'A adapter
For I = LBound(Tblo) To UBound(Tblo) - 1
    Print #1, Tblo(I)
Next
Close #1
End Sub