Code vb pour excel

Bonjour,
Bonjour,
j aimerai bien savoir il ou le defaut dans ce code . car l intere de ce derrnier est de remplir un fichier excel avec le vb par des paramettre deja defini a partir de A19 et ainssi de suite
Private Sub Checkliste_Click()
Dim i As Integer
Dim j As Integer
Dim NF As Integer
Dim path As String
Dim texte As String
Dim pos As String
Dim exc As New Excel.Application
Dim DataArray() As Byte

NF = FreeFile
path = "c:\RSSGenerator\" & Affaire & "\Checkliste_Colonne_" & InAFFnomCol & ".xls"
DataArray = LoadResData(102, "CUSTOM")
FNum = FreeFile
Open path For Binary As #FNum
Put #FNum, 1, DataArray
Close FNum
j = 19

ActiveWorkbook

For ndx = 0 To 4
For i = 1 To Grid1(ndx).Rows - 1
If Grid1(ndx).TextMatrix(i, 1) <> "" And Grid1(ndx).TextMatrix(i, 2) <> "" Then
texte = Grid1(ndx).TextMatrix(i, 0)
Range("A" & j).Select
ActiveCell.FormulaR1C1 = Grid1(ndx).TextMatrix(i, 1)
Range("B" & j).Select
ActiveCell.FormulaR1C1 = Grid1(ndx).TextMatrix(i, 2)
Range("C" & j).Select
ActiveCell.FormulaR1C1 = Grid1(ndx).TextMatrix(i, 3)
j = j + 1
End If

Next
Next

Close NF

End Sub