Dim NumLigneRecherche As Variant
Dim PlageRecherche As Range
Set PlageRecherche = Range(Cells(1, 2), Cells(LigneSuivante, 2))
NumLigneRecherche = Application.WorksheetFunction.EQUIV(NbDevis, PlageRecherche, 0)
If WorksheetFunction.ESTNA(NumLigneRecherche) = True Then
If DateReception = Cells(5, NumLigneRecherche).Value Then
Cells(LigneSuivante, 7).Value = "En cours"
Else
Cells(LigneSuivante, 7).Value = "Réouvert"
End If
End If