'par date
For i = 1 To LFin3 'pour chaque heure des HeuresParam
For j = 1 To Lfin4 'pour chaque ligne du TabDataDates
If tab3(i, 1) = tab4(j, 6) Then 'si l'heure Param = DatePlanifiée du TabDataDates
tot1 = tot1 + 1 'incrémente compteur
For w = 1 To Cfin4 - 1 'pour chaque ligne de TabDataSources
Cells(tot1, w + 1) = tab4(j, w) 'on met le numéro..
Next w
End If
Next j
Next i
For i = tot1 + 2 To 600
For w = 1 To Cfin4 - 1
Cells(tot1 + 1, w + 1) = ""
Next w
Next i
tot2 = 2