Bonjour
bien plus modeste que la solution de machin, un bout de code qui semble marcher
Sub Macro1()
Range("B2,C4,E2,F4").Select
Selection.FormulaR1C1 = "1"
End Sub
Bonjour
Cape Pierre excuse moi de t'avoir pris pour Machin..... dont je viens de recopier un code...
Cordialement
FINDRH