Salut,
sinon, reprends ton code comme ceci :
Sub essai()
Sheets("approarrivé").Select
Range("A:A").Select
LoopIt:
For Each c In Selection
If c.Value <> "" And c.Offset(0, 21).Value = "" Then
X=c.value
For Each cell In Selection
cell.activate
If cell.Value = X and cell.row<>c.row Then
ActiveCell.EntireRow.Delete shift:=x1Up
goto LoopIt
End If
Next cell
End If
Next c
End Sub
Bon courage !
Clément