Bonjour a tous,

Je me retrouve avec un petit soucis qui, je pense est tout bête, cependant après de longue minute de recherche je ne trouve pas solution

Voici mon petit bout de 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
 Dim fin, ligne As Integer
    Dim droite As Range
    fin = 2
    ligne = 8
    
    
    Do While Range("H" & fin).Interior.Color = Range("H2").Interior.Color
        fin = fin + 1
    Loop
    
    Set droite = Range("H" & fin)
    
    Do While Not Cells(fin, ligne).Interior.Color = Range("A500").Interior.Color
        ligne = ligne - 1
    Loop
    
    Range("droite: Cells(fin, ligne)").Select

La ligne en Rouge correspond a l'endroit ou j'ai l'erreur:

"Erreur d'execution '1004':

Erreur definie par l'application ou par l'objet"


Merci beaucoup de votre attention !