Sub Fusionne()
Application.ScreenUpdating = False
Dim i%, j%, L%: L = 1
[G:H].ClearContents
For i = 1 To [B65500].End(xlUp).Row
For j = 1 To [A65500].End(xlUp).Row
Cells(L, "G") = Cells(j, "A")
Cells(L, "H") = Cells(i, "B")
L = L + 1
Next j
Next i
End Sub