Aide pour Vba svp

Bonsoir tout l monde .svp je vou pris de m aide pour ce code viseul basic et me dit si il ya des erreur car il ne veu pa se compile.ce code et pour deplacez des donnes precise dans excel et les placer dans un tableau dans des autre cellule.

Sub prog()

Dim craft As String
Dim compt As Integer
Dim i As Integer
Dim j As Integer
Dim aide As booleen

j = 2

For i = 1 To step 1

craft = Cells(A, i)
If (craft <> ENG And craft Is Not null) Then

If (craft = ACN) Then
i = i + 1
If (craft Is Not null) Then

If (cells(D, i) = 1) Then
ActiveSheet.Cells(R, j).Value = cells(E, i)
compt = compt + 1

ActiveSheet.Cells(N, j).Value = craft
ActiveSheet.Cells(Q, j).Value = cells(C, i)

If (aide = 1) Then
ActiveSheet.Cells(o, j).Value = cells(F, i) + cells(L, i - 1)
ElseIf (aide = 0) Then
ActiveSheet.Cells(o, j).Value = cells(F, i) + cells(L, i)
aide = 1
j = j + 1
End If

ElseIf (cells(D, i) = 2) Then
ActiveSheet.Cells(S, j - compt).Value = cells(E, i)
compt = compt + 1

ElseIf (cells(D, i) = Null) Then
compt = 0
End If

Else : i = i + 1

End If
End If
End If
Next i

End Sub