Bonsoir,
un essai avec restructuration du code :
Sub LouReeD()
Dim dl, dercol, Ligne
Cells.Interior.ColorIndex = xlNone
dl = Range("A" & Rows.Count).End(xlUp).Row
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
Ligne = ""
Application.ScreenUpdating = False
For i = 1 To dl
For j = 1 To dercol
If Cells(i, j) = Cells(1, 27) And _
Cells(i, j).Offset(0, 1) = Cells(1, 28) And _
Cells(i, j).Offset(0, 2) = Cells(1, 29) And _
Cells(i, j).Offset(0, 3) = Cells(1, 30) Then
Cells(i, j).Resize(, 4).Interior.ColorIndex = 9
Ligne = Ligne & i & " - "
Exit For
End If
Next j
Next i
Application.ScreenUpdating = True
MsgBox ("Ligne " & Mid(Ligne, 1, Len(Ligne) - 3))
End Sub
@ bientôt
LouReeD