Sub RecupDetailSemaine(LigDS As Long, NumSem As Integer, NomEq As String)
Dim LigPS As Long, IncDS As Integer, ColDS As Integer
LigPS = 6: IncDS = 0
Application.EnableEvents = False
' Inscrire les valeurs dans la feuille params
Param "ModeModif", True
Param "FirstLigDP", LigDS
' Avec la feuille de Détail Semaine
With ShtDS
Do While .Range("A" & LigDS).Value = NumSem And .Range("B" & LigDS).Value = NomEq
For ColDS = 0 To 9
ShtPS.Cells(LigPS + IncDS, 2 + ColDS) = ShtDS.Cells(LigDS, 4 + ColDS)
ShtPS.Cells(LigPS + IncDS, 2 + ColDS).Interior.ColorIndex = xlNone
Next ColDS
' Si la ligne suivante = même date
If ShtDS.Range("C" & LigDS + 1) = ShtDS.Range("C" & LigDS) Then
IncDS = IncDS + 1
Else
ShtPS.Cells(LigPS + 6, 2) = ShtDS.Cells(LigDS, 14)
IncDS = 0: LigPS = LigPS + 7
End If
LigDS = LigDS + 1
Loop
End With
Application.EnableEvents = True
End Sub