Public Sub Test1()
Dim c As Range
Dim nJour As Integer
inTv = CLng(Day(DateSerial(Year(Date), Month(Date) + 1, 0)))
For nJour = 1 To inTv
With Range("B7:B" & inTv + 6)
Set c = .Find(nJour, LookIn:=xlValues, SearchDirection:=xlNext)
End With
Next nJour
End Sub