Function isDansSixMois(ByVal l As Integer, mois_actuel As Integer) As Boolean
'renvoie si la ligne l a une date fin dans les 6 mois de mois_actuel
'mois_actuel est le mois dont on souhaite la MAJ dans l'onglet Table
Dim c_alpha As Integer
c_alpha = 10 ' colonne date fin
Dim rep As Boolean
rep = False
'Dim D6mois As Integer
D6mois = 183 'nombre de jour entre deux date
Dim date_actua As Long
date_actua = Worksheets("Table").Cells(13, mois_actuel + 2)
If (Cells(l, c_alpha).Value - date_actua < D6mois) Then
rep = True
End If
isDansSixMois= rep
End Function