For i = 5 To 14
[COLOR="Red"]Range("E & Hauteur + i & ":F" & Hauteur + i).Select[/COLOR]
Selection.Merge
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Next