Sub RecordSeizureWeek()
Dim TabNom() As Variant
'Dim TabMorning() As Variant
'Dim TabAfternoon() As Variant
Dim TabDay() As Variant
Set WsS = Worksheets("Seizure week")
With WsS 'dans la feuille "Seizure week"
FinNom = .Range("B7").End(xlDown).Row 'dernière ligne du nom (en partant de B7 vers le bas (jusqu'à la première ligne vide -en fin de morning)
TabNom = .Range("B7:B" & FinNom).Value 'on met la liste des noms dans un tablo VBA
'MsgBox UBound(TabNom)
' TabMorning = .Range("B8").Resize(UBound(TabNom), 41).Value
' TabAfternoon = .Range("B8").Offset(UBound(TabNom) + 2).Resize(UBound(TabNom), 41).Value
TabDay = .Range("B7").Resize(UBound(TabNom) * 2 + 1, 41).Value 'on met tout le tableau (Morning + Afternoon) dans un tablo VBA
'.Range("B7").Resize(UBound(TabNom) * 2 + 1, 41).Select 'pour voir ce qui vient d'etre mis dans le tableau
NumSemaine = .Range("B4") 'récupère le Numéro de la semaine
NumLigne = NumSemaine + 3 'correspondance avec les feuilles Noms...
End With
For i = LBound(TabNom, 1) + 1 To UBound(TabNom, 1)
If FeuilleExiste(CStr(TabNom(i, 1))) Then
With Sheets(TabNom(i, 1))
For j = LBound(TabDay, 2) + 1 To UBound(TabDay, 2)
.Cells(NumLigne, j) = TabDay(i, j)
.Cells(NumLigne, j + 40) = TabDay(i + 4, j)
'.Cells(NumLigne, j + 40) = TabDay(i + 12, j)
Next j
End With
End If
Next i
End Sub