Dim MaDate As Date, Jour As Variant, Jr As Byte, Lm As Integer, Ls As Integer
Dim Cell As Range
'Détermination des soignants disponibles / jour considéré
Application.ScreenUpdating = False
With Sheets("Tournée")
.Range("B8:F49", "B60:F101").ClearContents
MaDate = .Range("ChoixJr")
End With
Jour = Day(MaDate)
vm = 9: hm = 2
vs = 61: hs = 2
With Sheets(Format(MaDate, "mmmm")) '.Activate
Jr = .Cells(12, (Jour * 2) + 1).Column
For Each Cell In .Range(.Cells(14, Jr), .Cells(.Cells(65536, 1).End(xlUp)(2).Row, Jr))
If Cell > 0 Then
Sheets("Tournée").Cells(vm, hm) = Cell.Value
Sheets("Tournée").Cells(vm - 1, hm) = .Cells(Cell.Row, 1).Value
hm = hm + 1
If hm = 7 Then hm = 2: vm = vm + 14
End If
If Cell.Offset(0, 1) > 0 Then
Sheets("Tournée").Cells(vs, hs) = Cell.Offset(0, 1).Value
Sheets("Tournée").Cells(vs - 1, hs) = .Cells(Cell.Row, 1).Value
hs = hs + 1
If hs = 7 Then hs = 2: vs = vs + 14
End If
Next Cell