Sub Bouton6_QuandClic()
Dim c As Range
For Each c In Range('a1:a20')
If Day(c) / 2 = Int(Day(c) / 2) Then
c.Offset(0, 1) = 'A'
Else
c.Offset(0, 1) = 'M'
End If
Next c
End Sub
'*****************************
Sub Bouton7_QuandClic()
Dim c As Range
Dim bon As Boolean
bon = True
For Each c In Range('a1:a20')
If Weekday(c) = 7 Then
If bon Then
c.Offset(0, 1) = 'L': bon = False
Else
bon = True
End If
End If
Next c