Bonjourà tous

j'aimerai réduire le temps d'exécution de ma 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
 
n = 1
Do
If Feuil1.Cells(i, n).Interior.Color <> RGB(255, 255, 255) Then
   With Feuil6
       .Cells(k, 1).Value = i  ' i coreespond au nombre de ligne de la feuille1
    End With
    k = k + 1
    Exit Do
Else
n = n + 1
End If
 
Loop Until n = 42  '42 c'est le nombre de colonne à traiter: mais on peut tester sur toute la ligne

Ce code permet d'écrire les numéros de lignes en feuille 6 lorsque la couleur d'une cellule n'est pas blanche

Seulement le temps d'éxécution de ma macro est beaucoup plus long et j'aimerai savoir si il n'y aurait pas un moyen plus rapide

J'ai essayé avec rows:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
If Rows(i) <> RGB(255, 255, 255) Then
Feuil6.Cells(k, 1).Value = i
k = k + 1
End If
bien entendu ça ne marche pas

Merci d'avance pour vos solutions proposées
Cordialment