Sub Manuel()
'Détermination des soignants disponibles / jour considéré
Sheets("Tournées").Range("B8:F49,B60:F101").ClearContents
quantième = CDbl(Format(Range("ChoixJr"), "dd"))
Sheets(CStr(Range("ChoixMois"))).Activate
jr = Cells(12, (quantième * 2) + 1).Address
matin = Range(jr).Offset(2, 0).Address: Soir = Range(matin).Offset(0, 1).Address
Range(matin).Select
v = 9: h = 2
soignants v, h
Range(Soir).Select
v = 60: h = 2
soignants v, h
End Sub
Sub soignants(v, h)
For Each cell In Range(Cells(14, ActiveCell.Column), Cells(Cells(65536, ActiveCell.Column).End(xlUp)(-4).Row, ActiveCell.Column))
If cell > 0 Then
Sheets("Tournée[COLOR="Red"]s[/COLOR]").Cells(v, h) = cell.Value
Sheets("Tournée[COLOR="Red"]s[/COLOR]").Cells(v - 1, h) = Cells(cell.Row, 1)
h = h + 1
If h = 7 Then h = 1: v = v + 14
End If
Next cell
End Sub