Option Explicit
Sub TheSearcher()
Dim Plage As Range
Dim CellDate As Range, CellinRow As Range
Dim TheListOfLatePeople As String
With Sheets('Database')
Set Plage = .Range('B2:B' & .Range('B35000').End(xlUp).Row)
For Each CellDate In Plage
If IsDate(CellDate) Then
If CDate(CellDate) <= Date Then
For Each CellinRow In .Range(.Cells(CellDate.Row, 3), .Cells(CellDate.Row, _
(.Cells(CellDate.Row, 3).End(xlToRight).Column)))
If CellinRow <> '' Then
TheListOfLatePeople = TheListOfLatePeople & 'Pour Article ' & _
.Cells(1, CellinRow.Column) & vbTab & CellinRow.Value & vbCrLf
Exit For 'NB Si on doit sortir après le premier nom trouvé...
End If
Next
End If
End If
Next
End With
MsgBox 'Voici la liste des Retardataires, Articles par Articles' & vbCrLf & TheListOfLatePeople
End Sub