Bonjour,

J'ai un probleme de lenteur sur la petite macro suivante
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
Dim a As Integer
        a = 2
        While Not Cells(a, 2) = ""
            If Cells(a, 2) > 0 Then
                Dim B As String
                B = Cells(a, 1)
                Dim c As Integer
                c = 2
                Windows("Test gestion IO.xls").Activate
                Sheets("Temp IO").Select
                    While Not Cells(c, 7) = ""
                          If Cells(c, 7) = B Then
                          Range(Cells(c, 1), Cells(c, 12)).Copy
                          Sheets(B).Range("A2").Insert shift:=xlDown
                          Application.CutCopyMode = False
                          End If
                          c = c + 1
 
                          Sheets("Temp IO").Select
                    Wend
             End If
             a = a + 1
             Windows("Reference.xls").Activate
             Sheets("Liste controller").Select
        Wend
Mon fichier "Temp IO" comprend environ 2300 lignes.

Il existe peut etre un autre code???