fin2 = Sheets("sort").Range("A65536").End(xlUp).Row
a = 0
For deux = 2 To fin2
Set pagee1 = Sheets("data").Columns(1).Find(Sheets("sort").Cells(deux, 1), LookIn:=xlValues, LookAt:=xlWhole)
If Not pagee1 Is Nothing Then
Else
a = a + 1
Sheets("sort").Cells(deux, 1).EntireRow.Delete
'******** AJOUTE CES 2 LIGNES *****
deux = deux - 1
fin2 = fin2 - 1 'pas obligé, mais plus propre
'*************************************
End If
Next