For LgnCompare = 1 To UBound(TBl_BDD)
FirstDay = TBl_BDD(LgnCompare, 18): LastDay = TBl_BDD(LgnCompare, 19)
If DayCompare >= FirstDay And DayCompare < LastDay Then
Nbr_Nuitees = IIf(TBl_BDD(LgnCompare, 20) = 0, 1, TBl_BDD(LgnCompare, 20))'Ici
Somme_Nuitees = Somme_Nuitees + IIf(TBl_BDD(LgnCompare, 20) = 0, 0, 1),'Ici
Somme_HT = Somme_HT + TBl_BDD(LgnCompare, 28) / Nbr_Nuitees
Somme_TTC = Somme_TTC + TBl_BDD(LgnCompare, 29) / Nbr_Nuitees
End If
Next