Sub DossiersOuverts()
Cells(9, TrouveNumDeCol()).Value = Cells(9, TrouveNumDeCol()).Value + 1
End Sub
Sub Classement()
Cells(12, TrouveNumDeCol()).Value = Cells(12, TrouveNumDeCol()).Value + 1
End Sub
Sub Amiable()
Cells(13, TrouveNumDeCol()).Value = Cells(13, TrouveNumDeCol()).Value + 1
End Sub
Sub Procedure()
Cells(14, TrouveNumDeCol()).Value = Cells(14, TrouveNumDeCol()).Value + 1
End Sub
Public Function TrouveNumDeCol() As Integer
If Weekday(Date) = 2 Then
TrouveNumDeCol = 3
ElseIf Weekday(Date) = 3 Then
TrouveNumDeCol = 4
ElseIf Weekday(Date) = 4 Then
TrouveNumDeCol = 5
ElseIf Weekday(Date) = 5 Then
TrouveNumDeCol = 6
ElseIf Weekday(Date) = 6 Then
TrouveNumDeCol = 7
Else: TrouveNumDeCol = 8
End If
End Function