C'est bon...

Problème résolu...
C'était bien ça, je devais déclarer mes variables a(), c() et i() en tableau.

Dim ca As Long, n As Integer, tx As Single
Dim a(1000) As Single, i(1000) As Single, c(1000) As Single

Parfait ça marche très bien

Merci!