Sub ajoutcommentaire()
devis = InputBox("Le devis a ete envoye le?")
contrat = InputBox("Le contrat a ete envoye le?")
contact = InputBox("La personne contact est?")
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:= _
Chr(10) & "Devis envoyer le: " & devis & Chr(10) & "Contrat envoyer le: " & contrat & Chr(10) & "Contact: " & contact
Range("A3").Select
End Sub