Bonjour a tous

Voila donc je souhaite renseigner mes cellules excel avec mes fonctions , sauf que a chaque fois je doit les copier coller et jaimerai automatiser la saisi comme le remplissage de mes autres cellules a travaers une macro .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 With Sheets("Suivi")
        For Each i In dossiersource.items
 
            Ligne = Ligne + 1
            .Cells(Ligne, 1) = i.Subject
            .Cells(Ligne, 2) = i.creationtime
            '.Cells(Ligne, 4) = i.body
            .Cells(Ligne, 5) = strResultat
            .Cells(Ligne, 6) = i.Sendername
 
        Next i
 
    End With

Jaimerais a jouter les fonctions :

- Colonne J : =NB.JOURS.OUVRES.INTL(B52;C52;1)
-colonne K : =NB.JOURS.OUVRES.INTL(B52;H52;1)
Colonne L : =SI(K52-J52<-365;0;K52-J52)


Est ce que c'est possible sur VBA ?

Merci