Hello,

A l'ouverture de mon fichier logiciel, j'en ouvre un second que je garde masqué.
Lorsque je lance ma macro de recherche, j'active le classeur fermé, je selectionne l'onglet correspondant a la marque, et je recherche dans la colonne A, la réference...
Lors de l'exécution de ma macro, il y a un clignotement AFFREUX que j'aimerai éviter...

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
 
    Windows("Tarifs.xls").Activate
    Sheets(marque).Select
    With ("A2:A" & Range("A65535").End(xlUp).Row)
        Set c = .Find(reference, LookIn:=xlValues)
        If Not c Is Nothing Then
            ligne = c.Row
            Windows(fichier_logiciel).Activate
            Workbooks(fichier_logiciel).Sheets(1).Cells(l, 2).Value = Workbooks("Tarifs.xls").Sheets(marque).Cells(ligne, 1).Value
            Workbooks(fichier_logiciel).Sheets(1).Cells(l, 6).Value = Workbooks("Tarifs.xls").Sheets(marque).Cells(ligne, 2).Value
            Workbooks(fichier_logiciel).Sheets(1).Cells(l, 12).Value = Workbooks("Tarifs.xls").Sheets(marque).Cells(ligne, 3).Value
            Workbooks(fichier_logiciel).Sheets(1).Cells(l, 11).Value = Workbooks("Tarifs.xls").Sheets(marque).Cells(ligne, 4).Value
            If Workbooks(fichier_logiciel).Sheets(1).Range("N" & l).Value <> "" Then
                For j = 1 To 500
                    If Workbooks("Tarifs.xls").Sheets("Remise").Range("B" & j).Value = Workbooks(fichier_logiciel).Sheets(1).Range("K" & l).Value And Workbooks("Tarifs.xls").Sheets("Remise").Range("E" & j).Value = Workbooks(fichier_logiciel).Sheets(1).Range("S" & l).Value Then
                        Workbooks(fichier_logiciel).Sheets(1).Range("N" & l).Value = Range("D" & j).Value
                        Exit For
                    Else
                        Workbooks(fichier_logiciel).Sheets(1).Range("N" & l).Value = 0
                    End If
                Next j
            End If
        End If
    End With