fredo

bonjour voici mon code...

Sub essai()
Sheets("approarrivé").Select
Range("A:A").Select
For Each c In Selection
If c.Value <> "" And c.Offset(0, 21).Value = "" Then
c.Value = X
Range("A:A").Select
For Each cell In Selection
If cell.Value = X Then
ActiveCell.EntireRow.Delete shift:=x1Up
End If
Next cell
End If
Next c
End Sub


a la base, je veux supprimer les doublons de la colonne A si un de ces doublons possede la valeur "" dans sa colonne 21....

si quelqu'un peut m'aider avant que je ne tente de me pendre avec le fil de la souris ce serait gentil ..... je vais peut etre acheter une souris infrarouge ce sera plus prudent

merci tt le monde

fredo