Bonjour,
comme ceci ?
P.
Hello à MFerrand !
Option Explicit
Sub Macro1()
Dim Last, Tot, I, Col
Last = [A65000].End(xlUp).Row
For I = 2 To Last
For Col = 2 To 16
If Not Cells(I, Col).Borders(xlDiagonalDown).LineStyle = xlContinuous Then
If Weekday(Cells(1, Col)) <> 7 And Weekday(Cells(1, Col)) <> 1 Then
Cells(I, Col) = Cells(I, Col) * 1.25
End If
End If
Next
Next
End Sub