RECHERCHEV resultats multiples

Dim rng As Range, cell1 As Range
Dim rng2 As Range, cell2 As Range
Dim trouv As String
Sheets("VERIF").Select
Columns("A:B").Select
Dim derlig As Long
Sheets("VERIF").Select
Set rng = Sheets("VERIF").Range("A1:A65000")
Set rng2 = Sheets("LISTEVILLES").Range("A1:A65000")
For Each cell1 In rng
    If cell1.Value <> "" Then
    trouv = ""
    For Each cell2 In rng2
    If cell2.Value <> "" Then
    If cell1.Value = cell2.Value Then
    trouv = cell1.Value
    Sheets("VERIF").Range("C65536").End(xlUp).Offset(1, 0) = cell2.Offset(0, 1).Value
    Sheets("VERIF").Range("C65536").End(xlUp).Offset(0, 1) = cell1.Offset(0, 1).Value
    End If
    End If
    Next cell2
    If trouv = "" Then Sheets("VERIF").Range("E65536").End(xlUp).Offset(1, 0) = cell1.Value
    End If
    Next cell1
Set rng = Nothing
Set rng2 = Nothing