>this Code give D02 with NULL value ?

 SELECT T.cnomteleph,;
    CAST(SUBSTR( TTOC(NVL(  A1.debut, { :} )) , 12 , 5 ), "" ) AS c(5 ) )AS  D01  ,;
...

... etc, wrap the field in nvl(), not the whole expression.