Bonjour le forum,

J'ai écrit un script avec 2 conditions mais seul la 1ère se réalise:

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
22
23
24
25
26
27
28
29
30
31
32
33
Sub trial_second_step()
 
Range("G1").Select
    Selection.Cut
    Range("M1").Select
    ActiveSheet.Paste
    Columns("G:L").Select
    Selection.Delete Shift:=xlToLeft
 
    Dim Cell As Range
 
    Dim LastLig As Long, i As Long
 
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
DerLig = 2
For i = 2 To LastLig
 
    For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
If Cells(i, 1) = "DEBUT" Then
Rows(i).Delete
 
End If
 
If Cells(i, 1) = "FIN" Then
Rows(i).Delete
 
 
End If
 
Next
Next
 
End Sub

J'ai dans mon fichier excel dans la colonne A, une cellule qui comporte le texte "DEBUT" et dans une autre cellulle de la colonne A le texte "FIN". Je désire supprimer ces deux lignes.

Mon script supprime uniquement la ligne qui contient "DEBUT" mais pas celle qui contient "FIN".

Comment modifier le script pour que ces 2 lignes disparaissent?


Merci ,