' Recherche
Private Sub RechercheJour()
Dim JourSem As Variant
Dim Delta As String
JourSaisie = "mar"
Service = 2404
JourSem = Array("lun", "mar", "mer", "jeu", "ven")
Set Feuille = Worksheets("P3")
Set ServiceP3 = Feuille.Range("A:A").Find(Service, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)
If Not ServiceP3 Is Nothing Then
With ServiceP3
Periode = .Offset(, 1)
JourSemaine = .Offset(, 2)
If JourSemaine <> "12345" Then
For i = 0 To 4
Delta = Mid(JourSemaine, i + 1, 1)
If Delta <> "*" Then
Delta = i + 1
B = JourSem(i)
If B = JourSaisie Then
MsgBox (JourSem(i) & " " & JourSaisie)
Exit For
Else
JourSemaine = .Offset(1, 2)
End If
End If
Next i
End If
End With
End If
End Sub