Formule SI automatique

Bonjour à tous,

J'aurai besoin de votre aide pour une macro qui calculerai une formule SI dans un tableau. Je m'explique, j'ai un fichier excel dont les données sont importés d'un fichier source CSV mais dans une des colonnes j'ai une formule que je voudrais protéger en l'incluant dans ma macro
je vous joins le code pour récupérer les données et le fichier avec la formule.

Merci à d'avance à vous tous.
Code :
Dim Fichier As Variant, Chaine As String, T(), LDéb As Long, TSpl() As String, L As Long, C As Long, Z As String
ReDim T(1 To 5000, 1 To 10)
LDéb = 2
ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
If VarType(Fichier) <> vbString Then Exit Sub
Open Fichier For Input As #1
Line Input #1, Chaine ' ignore la ligne de titres du csv
Do While Not EOF(1)
Line Input #1, Chaine
TSpl = Split(Chaine, ";")
L = L + 1
For C = 1 To 4
Z = TSpl(Choose(C, 2, 4, 32, 29) - 1)
If IsNumeric(Z) Then T(L, C) = CDbl(Z) Else T(L, C) = Z
Next C: Loop
Close #1
Feuil1.Rows("3:5000").ClearContents
Feuil1.Cells(3, 1).Resize(L, 4).Value2 = T
End Sub