Sub test()
Dim M As Integer, A As Integer, DébRéf As Date, FinRéf As Date, _
DébDon As Date, FinDon As Date
M = 12 ' = ComboMois.listindex + 1
If M < Month(Date) Then M = M + 12
DébRéf = DateSerial(Year(Date), M, 1)
FinRéf = DateSerial(Year(Date), M + 1, 0)
DébDon = "18/11/2015"
FinDon = "19/02/2016"
If DébDon <= FinRéf And FinDon >= DébRéf Then
If DébDon < DébRéf Then DébDon = DébRéf
If FinDon > FinRéf Then FinDon = FinRéf
MsgBox "En stage au cours du mois, du " & DébDon & " au " & FinDon
End If
End Sub