With Sheets("Planning")
deb = .Range(debut).Value
fin = deb + 30
For i = 0 To 30
nb = .Cells(i + 3, "A").Value
H = IIf(nb Mod 2 = 1, 40 * (1 + nb / 2) - 12, 40 * (nb / 2) + 32)
.Rows(i + 3).RowHeight = IIf(nb > 0, H, 45)
Next i
choixTheme = .Range("D2")
End With