Voilà qui devrait t'aider en tous les cas avec des nombres.
Sub test()
Set debtable1 = ThisWorkbook.Worksheets(1).Range("a1")
Set debtable2 = ThisWorkbook.Worksheets(1).Range("b1")
inc1 = 0
inc2 = 0
While debtable1.Offset(inc1, 0) <> ""
Set donnée1 = debtable1.Offset(inc1, 0)
Set donnée2 = debtable2.Offset(inc1, 0)
If donnée1 = donnée2 Then GoTo suite
If donnée1 = "" Then debtable1.Offset(inc1, 0) = debtable2.Offset(inc1, 0)
If donnée2 = "" Then debtable2.Offset(inc1, 0) = debtable1.Offset(inc1, 0)
If donnée2 < donnée1 Then
donnée1.Insert (xlShiftDown)
debtable1.Offset(inc1, 0) = debtable2.Offset(inc1, 0)
Else
donnée2.Insert (xlShiftDown)
debtable2.Offset(inc1, 0) = debtable1.Offset(inc1, 0)
End If
suite:
inc1 = inc1 + 1
Wend