K@d

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