Sub dessin()
Dim i As Integer
For i = 1 To 4
With Shapes("dept" & Cells(i + 1, 10))
.Height = Cells(i + 1, 13).Value * [B]20[/B]
.Width = Cells(i + 1, 13).Value * [B]20[/B]
[B].Fill.ForeColor.SchemeColor = 52[/B]
If cells(i+1,13) = 0 then .Visible = False else .Visible = True
End With
Next i
End Sub