'Copie des segments par regroupement du classeur Data Vers classeur Cales Hotel 1
Worksheets("HOTEL 1").Select
Range("d7:m372").ClearContents
For i = 0 To 365 'compteur du tableau de synthese ligne
Worksheets("HOTEL 1").Select
date1 = Cells(i + 7, 3)
For ii = 0 To 731 'compteur du tableau source ligne
Worksheets(datejour).Select
date2 = Cells(ii + 4, 1)
If date1 = date2 Then
For iii = o To 9 'compteur tableau de synthese colone
Som = 0
Worksheets("HOTEL 1").Select
cel1 = Cells(5, iii + 4)
For iiii = o To 26 'compteur tableau source colone
Worksheets(datejour).Select
cel2 = Cells(2, iiii + 2)
If cel2 = cel1 Then
Som = Som + Cells(ii + 4, iiii + 2)
End If
Next iiii
Worksheets("HOTEL 1").Cells(i + 7, iii + 4) = Som
Next iii
End If
Next ii