Sub remplitSalles()
Dim c As Range
Set c = [E2] 'le début du tableau à remplir
MaxRow = [D65536].End(xlUp).Row 'colonne D,les créneaux
MaxCol = [IV1].End(xlToLeft).Column 'ligne1, les salles
For Each c In Range([E2], Cells(MaxRow, MaxCol))
For t = 1 To 2 '2: 2 surveillants par classe
s = IIf(t < 2, " et ", "") '2: idem, nb surveillants
c = c & [C20].Value & s 'formule en C20
a = [C19] 'Formule en C19
[B1].Offset(a, 0) = [B1].Offset(a, 0) + 1 'Nb surveillance augmente
Next
Next
Range([E2], Cells(MaxRow, MaxCol)).EntireColumn.AutoFit
End Sub