Bonjour à tous,

Une petite interrogation. J'ai déjà réussi à faire ce code une fois, mais je ne me souviens plus de comment j'ai procédé. Sur le code que je vais posté ci-dessous, j'ai un souci d'incompatibilité de type... (Mais pourquoi?)

Ce que j'aimerai faire, c'est surligner les lignes de la première colonne active, à la dernière colonne active à partir du moment où il y a une mention "En retard" dans la ligne.

Est-ce que quelqu'un aurait une correction avec des explications de préférence ?

Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub misencouleur()
 
Dim DernLigne As Long
DernLigne = Range("A1", Selection.End(xlDown)).Cells.Count
Dim DernCols As Long
DernCols = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
If Range(Cells(2, 1), Cells(DernLigne, DernCols)).Value <> "En retard" Then Rows(i).Interior.ColorIndex = 3
End Sub
Merci d'avance,