Sub essai()
adresse = Range('a15000').End(xlUp).Row + 1
Range('a' & adresse).Select
ActiveCell.Offset(0, 1).FormulaLocal = '=si(' & ActiveCell.Offset(0, 2).Address & '='valide';'bravo')'
End Sub
Mais il me met un message d'erreur! j'ai l'impressoin qu'il bloque au niveau des guillemets qui entoure le 'valide', et donc probablement aussi sur ceux qui entourent le 'bravo'.