Equivalence d'une formule en VBA

bonjour, je voudrais savoir si quelqu'un aurais l'équivalence de cette formule :
="T0-BAP-"&SI(F14="";"?????";F14) &"-BA"& SI(NBCAR(D14)=1;"00"&D14;SI(NBCAR(D14)=2;"0"&D14;D14))

en code vba. Merci. Cordialement.

Bonjour,

Pourquoi s'embêter, utilisez l'enregistreur de macros ce qui donne une fois modifié, changez la cellule qui contient la formule

' pour une cellule
    Range("A1").FormulaR1C1 = "=""T0-BAP-""&IF(R[13]C[5]="""",""?????"",R[13]C[5]) &""-BA""& IF(LEN(R[13]C[3])=1,""00""&R[13]C[3],IF(LEN(R[13]C[3])=2,""0""&R[13]C[3],R[13]C[3]))"
    Range("A1").Value = Range("A1").Value ' écrase la formule et ne conserve que la valeur

' pour une plage de cellules
    Range("A1:A100").FormulaR1C1 = "=""T0-BAP-""&IF(R[13]C[5]="""",""?????"",R[13]C[5]) &""-BA""& IF(LEN(R[13]C[3])=1,""00""&R[13]C[3],IF(LEN(R[13]C[3])=2,""0""&R[13]C[3],R[13]C[3]))"
    Range("A1:A100").Value = Range("A1:A100").Value ' écrase les formules et ne conserve que les valeurs

Cdlt