Option Explicit
Sub Recherche()
'
Dim CelluleRecherche As Range
Dim CelluleTrouvee As Range
Dim CelluleIciMaisPasLa As Range
Dim LigneActuelle As Long
'
Set CelluleIciMaisPasLa = Range('C3')
Range('B:B').Select
For Each CelluleRecherche In Range('A3', Range('A65536').End(xlUp))
If Selection.Find(CelluleRecherche.Value) Is Nothing Then
CelluleIciMaisPasLa.Value = CelluleRecherche.Value
Set CelluleIciMaisPasLa = CelluleIciMaisPasLa.Offset(1, 0)
End If
Next
Set CelluleIciMaisPasLa = Range('D3')
Range('A:A').Select
For Each CelluleRecherche In Range('B3', Range('B65536').End(xlUp))
If Selection.Find(CelluleRecherche.Value) Is Nothing Then
CelluleIciMaisPasLa.Value = CelluleRecherche.Value
Set CelluleIciMaisPasLa = CelluleIciMaisPasLa.Offset(1, 0)
End If
Next
Range('A1').Select
End Sub