Bonjour à tous,

dans le cadre d'un projet étudiant, j'aimerais trier une liste d'adresses mails en ne retenant que les .com. Pour cela, j'ai écris quelques lignes en VBA mais Excel plante dès que je lance le macro.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub suppr_mail()
 
Dim der_ligne As Integer
Dim ligne As Integer
 
der_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
ligne = 1
 
While (ligne <= der_ligne)
 
 If Not (Cells(ligne, 1) Like ("*.com*")) Then
    Cells(ligne, 1).EntireRow.Delete
    ligne = ligne - 1
End If
 
 
ligne = ligne + 1
 
Wend
End Sub
A noter que, lorsque je supprime la ligne "ligne = ligne - 1", le pgrm tourne correctement mais ne trie qu'un mail sur deux évidemment...

Avez-vous un avis sur la question ? Je précise que c'est mon 1er code VBA, donc l'erreur est sûrement évidente

Bonne journée !