Bonjour à tous et meilleurs vœux pour 2012,
Autre solution avec filtre
à noter qu'il y a quelques doublons de noms-prénoms avec des adresses différentes en Feuil1
Sub Adresses() 'extrait les communs aux feuilles 1 et 2
Dim lg%, f1 As Worksheet, f2 As Worksheet
Application.ScreenUpdating = False
Set f1 = Sheets("Feuil1")
Set f2 = Sheets("petite")
Sheets("résultat").Activate
lg = Application.Max( _
f1.Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
f2.Cells.Find("*", , , , xlByRows, xlPrevious).Row)
'--- insère colonne A et concatène Nom et Prénom ---
f1.Columns("a").Insert
f1.Range("a2:a" & lg) = "=b2&c2"
f2.Columns("a").Insert
f2.Range("a2:a" & lg) = "=b2&c2"
'--- filtre communs colonne A (Nom et Prénom cocaténés) ---
Range("g2") = "=COUNTIF(petite!a2:a" & lg & ",Feuil1!a2)>0" 'critère
f1.Range("a1:d" & lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("g1:g2"), CopyToRange:=Range("a1:c1"), Unique:=True
Range("g2").ClearContents
'---
f1.Columns("a").Delete
f2.Columns("a").Delete
End Sub
Voir feuille "résultat"
Amicalement
Claude