bonsoir,
met ce code là à la place du tien et essaie de changer les dates aux niveau de ton ordinateur, simule le mois de juillet 2006, etc etc...
tu vois apparaitre le message si tu es en juillet 2006 pour mettre le montant dans le case.
chantal
Sub indemnité()
If Month(Date) / Year(Date) = 7 / 2005 Then
Indemnité2005 = InputBox('Entrez le montant de l'indemnité 2005 pour unité 1')
Range('B1').Select
ActiveCell.FormulaR1C1 = Indemnité2005
End If
If Month(Date) / Year(Date) = 7 / 2006 Then
Indemnité2006 = InputBox('Entrez le montant de l'indemnité 2006 pour unité 1')
Range('B2').Select
ActiveCell.FormulaR1C1 = Indemnité2006
End If
If Month(Date) / Year(Date) = 7 / 2007 Then
Indemnité2007 = InputBox('Entrez le montant de l'indemnité 2007 pour unité 1')
Range('B3').Select
ActiveCell.FormulaR1C1 = Indemnité2007
End If
End Sub