Function DateUs(Place_a)
Dim LaDate, c As Range
LaDate = ""
For Each c In Range("MOIS_US")
If Mid(Place_a, 4, 3) = c.Value Then
LaDate = Replace(Place_a, Mid(Place_a, 4, 3), c.Offset(, 1))
LaDate = Replace(LaDate, "-", "/")
End If
Next c
If LaDate <> "" Then
DateUs = LaDate
Else
DateUs = Format(Place_a, "dd/mm/yyyy")
End If
End Function