macro recherche entre deux listes

[flo2002]

Bonjour,
j'ai mis une macro que je me sers souvent pour extraire des données entre deux listes. Le probleme c'est que la elle ne marche pas....
la voici:

Dim derlign1 As Long
Dim derlign2 As Long

derlign1 = Sheets("XXX").Range("C65536").End(xlUp).Row
derlign2 = Sheets("WWW").Range("F65536").End(xlUp).Row
For i2 = 14 To derlign2
For i1 = 14 To derlign1
If Sheets("XXX").Range("C14" & i1) = Sheets("WWW").Range("F14" & i2) Then ,ici quand je laisse C et F sans le 14 il plante et me dis incompatibilité de type, mais avec il ne trouve rien....
Exist = 1
GoTo Suivant1
End If
Next
If Exist = 1 Then GoTo Suivant1
Sheets("XXX").Range("C" & derligne1 + 1) = Sheets("WWW").Range("F" & i2)
derligne1 = Sheets("XXX").Range("C65536").End(xlUp).Row
Suivant1:
Exist = 0
Next

merci de vos lumieres!

 

[flo2002]

Re : macro recherche entre deux listes

Merci à Jean Marie,
l'autre macro à aussi soigner ce morceau car plus de #N/A..
merci!