Sub Test()
Dim plageA As Range, plageB As Range, jour, c As Range, i As Variant
Set plageA = Sheets("ep").Range("F7:BC7")
Set plageB = Sheets("ep").Range("F2:BC2") 'ligne 2 et non pas 5
jour = Array("ven", "sam", "dim") 'liste à adapter
With Application
.ScreenUpdating = False
Range("C13:NC13").ClearContents
For Each c In Range("C13:NC13")
If UCase(c.Offset(-8)) = "N" Then
If IsNumeric(.Match(c.Offset(-11), jour, 0)) Then
i = .Match(c.Offset(-10), plageB)
If IsNumeric(i) Then If UCase(plageA(i)) = "A" Then c = 6
End If
End If
Next
End With
End Sub