Couper ligne si caractère spécial

Bonjour à tous !

Je souhaiterais couper, puis coller dans la deuxième feuille de mon classeur Excel, toutes les lignes de la colonne A contenant une adresse mail.

J'ai essayé avec la macro suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Couper_Lignes()   Dim i As Long   Sheets("Feuil1").Select   NbLignes = 266 For i = 1 To NbLignes   With Cells(i, 1)   If .Value = "@" Then Cells(i, 1).EntireRow.Cut Sheets("Feuil2").Select Range("A266").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Sheets("Feuil1").Select End If End With   Next i   End Sub

---

Mais il ne se passe rien. J'aurais donc besoin de votre aide pour trouver mon erreur :oops:

Merci d'avance :)

Bonjour,
C’est normal, tu cherches la valeur @ hors un mail c’est toto@hébergeur .??
Donc tu ne trouves pas d’occurrence.

Code:

---

If InStr(1, .Value, "@") <> 0 Then

---

En fait comme seules les lignes contenant une adresse mail dans mon classeur contenaient le caractère "@", je pensais que cela suffirait comme je l'avais écrit à la base :oops:

Merci beaucoup pour ton aide en tout cas, ta solution marche effectivement bien mieux que la mienne ! :mrgreen: