Sub Macro()
Dim I, L As Integer
Dim Cell1 As Variant
I = Feuil1.Range("j1").End(xlDown).Row ' Trouve la fin de la colonne J
Range("j1:j" & I).Select 'Selectionne l'ensemble de la colonne jusqu'à Vide = True
L = 1
Start:
For Each Cell1 In Selection ' Pour chaque cellule dans la selection
If Cell1 - ???? Then
Cell1.Delete ' Efface la cellule
Range("j" & L & ":j" & Feuil1.Range("j1").End(xlDown).Row).Select ' Reselectionne la Colonne j depuis la ligne ne cours seulement
GoTo Start: ' recommence depuis le debut de cette selection
Else
L = L + 1 ' si Cell1 = cellule d'à côté, incremente de 1
End If
Next
End Sub