=SI(ESTERREUR(INDEX($B$2:$B$5200;PETITE.VALEUR(SI(NON(ESTERREUR(CHERCHE("@";$B$2:$B$5200)));LIGNE(INDIRECT("1:"&LIGNES($B$2:$B$5200))));LIGNES($1:1))));"";INDEX($B$2:$B$5200;PETITE.VALEUR(SI(NON(ESTERREUR(CHERCHE("@";$B$2:$B$5200)));LIGNE(INDIRECT("1:"&LIGNES($B$2:$B$5200))));LIGNES($1:1))))
Sub test()
With Range("IV:IV")
.FormulaR1C1 = "=FIND(""@"",RC2)"
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
.Clear
End With
End Sub