Jon

'pour ceux que cela intéresse, j'ai eu quelques problèmes pour l'insertion, alors j'ai été obligé de manipuler les zones (areas) de l'objet rgTarget. Cela marche mais ce n'est pas trop beau.

cela suppose l'existence de deux plages nommées table1 & table2

Sub d()
Dim i As Integer
Dim cl
Dim rgTarget As Range
Application.ScreenUpdating = False

For Each cl In [table1].Columns(1).Cells
i = i + 1
If cl <> [table2].Columns(1).Cells.Item(i) Then
If Not rgTarget Is Nothing Then
Set rgTarget = Union(rgTarget, [table2].Columns(1).Cells.Item(i).EntireRow)
Else
Set rgTarget = [table2].Columns(1).Cells.Item(i).EntireRow
End If

End If
Next cl
rgTarget.Select
If Not rgTarget Is Nothing Then
For j = 1 To rgTarget.Areas.Count
For Each rw In rgTarget.Areas(j).Rows
x = x & rw.Address & IIf(j < rgTarget.Areas.Count, ",", "")
Next rw
Next j
End If

Range(x).Insert shift:=xlDown
End Sub