Function Conversion(t As String, jour%, mois%, an%, heure%)
Dim s, a, i%
s = Split(t)
If UBound(s) < 4 Then Conversion = "": Exit Function
a = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
Conversion = DateSerial(s(an - 1), Application.Match(s(mois - 1), a, 0), s(jour - 1)) + TimeValue(s(heure - 1))
i = InStr(t, "+")
If i Then Conversion = Conversion + Mid(t, i + 1, 2) / 24 + Mid(t, i + 3, 2) / 1440
i = InStr(t, "-")
If i Then Conversion = Conversion - Mid(t, i + 1, 2) / 24 - Mid(t, i + 3, 2) / 1440
End Function