bonjour
range("A1,B2,C5").value="test"
faut juste apporter une modif à la soluce de doncoucou
sub test ()
For Each cell In Selection
cell.FormulaR1C1 = "test"
'cell.value="test"
Next cell
end sub
bye
stephane
ps : merci à doncoucou et aux autres pour les clins d'oeil à mon site