Quinzaine: fonction en VBA Excel

Function quinzaine(BaseDate As Date) As String
Dim debut As Date
Dim fin As Date
debut = DateSerial(Year(BaseDate), Month(BaseDate), 1)
fin = DateSerial(Year(debut), Month(debut), 15)
quinzaine = "Du " & Format(debut, "dd/mm/yy") & " au " & Format(fin, "dd/mm/yy")
End Function

Function quinzaine(BaseDate As Date) As String
Dim debut As Date, fin As Date
Dim debutS As String, finS As String
Application.Volatile
debut = DateSerial(Year(BaseDate), Month(BaseDate), 1)
debutS = CStr(Format(debut, "dd/mm/yyyy"))
fin = debut + 15
finS = CStr(Format(fin, "dd/mm/yyyy"))
quinzaine = "Du " & debutS & " au " & finS
End Function

Function quinzaine(BaseDate As Date) As String
Dim debut As Date, fin As Date
Dim debutS As String, finS As String
Application.Volatile
If Day(BaseDate) > 15 Then
debut = DateSerial(Year(BaseDate), Month(BaseDate), 16)
debutS = CStr(Format(debut, "dd/mm/yyyy"))
fin = DateSerial(Year(BaseDate), Month(BaseDate) + 1, 1) - 1
finS = CStr(Format(fin, "dd/mm/yyyy"))
quinzaine = "Du " & debutS & " au " & finS
Else
debut = DateSerial(Year(BaseDate), Month(BaseDate), 1)
debutS = CStr(Format(debut, "dd/mm/yyyy"))
fin = debut + 14
finS = CStr(Format(fin, "dd/mm/yyyy"))
quinzaine = "Du " & debutS & " au " & finS
End If
End Function

Sub ExtractQuinzaine()


Dim L%, t(), k$, temp()
   
    With Sheets("TRESORERIE")
   
        L = .[A35000].End(xlUp).Row
        t = .Range(.Cells(2, 1), .Cells(L, 29)).Value
        For i = LBound(t) To UBound(t)
            If t(i, 25) < 0 And t(i, 18) <= Date Then
                If k = "" Then
                    k = i
                    Else: k = k & ":" & i
                End If
            End If
        Next i
    End With
    If k <> "" Then
        With Sheets("RGT")
            .Range(.Cells(2, "b"), .Cells(.[b65000].End(xlUp).Row, "k")).Clear
            temp = Application.Index(t, Application.Transpose(Split(k, ":")), Array(1, 2, 5, 6, 8, 15, 16, 17, 18))
            With .[b2].Resize(UBound(temp), UBound(temp, 2))
                .NumberFormat = "@"
                .Value = temp
            End With
        End With
    End If
End Sub