Transformer formule Excel en VBA

Bonjour,

voici une version vba plus finie

Function titi(c As Range)

If Weekday(c, 2) >= 6 Then
titi = "We"
Else
If (c >= c.Offset(Application.Caller.Row() - 5, -(c.Column() - 7)) And c <= c.Offset(Application.Caller.Row() - 5, -(c.Column() - 8))) And Application.CountIf(Range("JoursFeriés"), c) = 0 Then
titi = "on bosse"                      ' a remplacer
Else
titi = " Jours feries ou hors delais"  ' a remplacer
End If
End If
End Function

Cdlt