Function NumSemaine(RngSearch As Range) As Integer Dim Tblo As Variant, JSem As Integer
Dim DerJSem As String
' Redimensionner la plage avec la 2ème colonne
Set RngSearch = RngSearch.Resize(, 2)
' Mémoriser la sélection dans un tableau
Tblo = RngSearch.Value
' Pour chaque jour de la sélection
For JSem = LBound(Tblo, 1) To UBound(Tblo, 1)
If Weekday(Tblo(JSem, 1), vbMonday) < 5 Then
DerJSem = Tblo(JSem, 2)
End If
Next JSem
End Function