Sub Bouton1_Cliquer()
'si on a cliqué sur le bouton1 pendant le mois, la macro ne doit pas se faire.
'msgbox "Tableau déjà mis à jour pour ce mois".
'Sinon :
Sheets("Feuil1").Select
If Range("B2") = "déjà Cliqué" Then
Exit Sub
End If
If Range("A2") = "janv" Then
Sheets("Feuil2").Select
Range("A1") = 1
ElseIf Range("A2") = "fév" Then
Sheets("Feuil2").Select
Range("A2") = 2
ElseIf Range("A2") = "mars" Then
Sheets("Feuil2").Select
Range("A3") = 3
ElseIf Range("A2") = "oct" Then
Sheets("Feuil2").Select
Range("A10") = 10
Sheets("Feuil1").Range("B2") = "déjà Cliqué"
End If
End Sub