Tien voila ca devrai marcher

If isNull(RecOracle.Fields(IndBoucle)) Then
FIC.write ("Null" + ";")
Else
FIC.write (RecOracle.Fields(IndBoucle) + ";")
End If
Voila sinon ca aussi ca marche et ca tien en une seul ligne
FIC.write (IIf(isNull(RecOracle.Fields(IndBoucle)), "Null" , cStr(RecOracle.Fields(IndBoucle)))+ ";")
++
PtitGrumo