Sub fusion()
Dim lig&, r&, i&
With Sheets(5)
lig = .Range("E" & Rows.Count).End(xlUp).Row - 1
r = 1
Do
i = 0
Do
If .Cells(r + i + 1, 19) = "" Then i = i + 1
Loop While .Cells(r + i + 1, 19) = ""
.Range(.Cells(r, 19), .Cells(r + i, 19)).Merge
r = r + 1
Loop While r < lig
End With
End Sub