Bonsoir a vous tous, Je tiens a vous préciser que je débute en VBA
le code VBA que je joint supprime toutes les lignes superflus pour en garder que l'essentiel, ma question est es que ont peut réduire les lignes de ce code
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub Test()
Dim i As Integer, j As Integer
    i = Range("A65536").End(xlUp).Row
    For j = i To 1 Step -1
        If Cells(j, 1) = "!                 Age  Dev Chap.      Compte                     Nom                           Intitule                            !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! Agence ......: 00512-AP TLEMCEN                                                                                                  !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "------------------------------------------------------------------------------------------------------------------------------------" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "!                                                                                                                                  !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! BANQUE NATIONALE D'ALGERIE                                                                                          CTB-102-3283 !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! Compte No  ..: 00512 DZD 220021     0300000075-24     ALGERIE TELECOM SPA                CCdzd entr n .financ privees            !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! No Client  ..: 0064800001                                                                                                        !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "!Date compta!Date valeur!Util!Exo! No piece  !No eve!Ope!            Libelle             !       Debit        !       Credit       !" Then
            Rows(j).Delete
    End If
    Next j
    For j = i To 1 Step -1
        If Left(Cells(j, 1), 6) = "! Date" Then
            Rows(j).Delete
    End If
    Next j
    For j = i To 1 Step -1
        If Left(Cells(j, 1), 57) = "!           !           !    !   !           !      !   !" Then
            Rows(j).Delete
    End If
     Next j
        For j = i To 1 Step -1
        If Left(Cells(j, 1), 67) = "!                                      HISTORIQUE DES MOUVEMENTS DU" Then
            Rows(j).Delete
    End If
    Next j
End Sub
Cordialement