Problème sur deux macros

Sub FigeDatVeil()
    FigeDat Date - 1
End Sub

Sub FigeDatJour()
    FigeDat Date
End Sub

Sub FigeDat(dat As Date)
    If Range("B4").Value Like "Remise***" Then
        If Range("A4") = "" Then Range("A4").Value = Application.Proper(Replace(Format((DateValue(dat)), "ddd dd mmm yy"), ".", ""))
    Else
        Range("A4").Value = ""
    End If
    If Range("B5").Value Like "Remise N°*" Then
        If Range("A5") = "" Then Range("A5").Value = Application.Proper(Replace(Format((DateValue(dat)), "ddd dd mmm yy"), ".", ""))
    Else
        Range("A5").Value = ""
    End If
End Sub