Function LigDebSemEq(VSem As Integer, NomEq As String) As Long
Dim Rng As Range, LigDebSem As Long, Dlig As Long
' Initialiser la ligne de début de semaine pour l'equipe
LigDebSemEq = 0
' En cas d'erreur on continue sans message
On Error Resume Next
' Avec la feuille Détail Semaines
With Sheets("DétailSemaines")
' Récupérer la dernière ligne de la feuille
Dlig = .Range("A" & Rows.Count).End(xlUp).Row
' Chercher la première ligne de la plage du numéro de semaine
Set Rng = .Range("A:A").Find(VSem, LookIn:=xlValues, lookat:=xlWhole)
If Not Rng Is Nothing Then LigDebSem = Rng.Row
' Chercher la première ligne de la plage semaine contenant le nom d'équipe
Set Rng = .Range(.Cells(LigDebSem - 1, 2), .Cells(Dlig, 2)).Find(NomEq, LookIn:=xlValues, lookat:=xlWhole)
If Not Rng Is Nothing Then LigDebSemEq = Rng.Row
End With
On Error GoTo 0 ' Réinitialiser les erreurs
End Function