Robert bonsoir, bonsoir le Forum,
Je suis impressionné, 2 propositions, 2 succés et du premier coup ! bravo
Je vais étudier (pour comprendre et progresser) ta proposition, celle ci me convient parfaitement, j'ai mis en place les protections de mes onglets (fichier d'enregistrement de productivité dans un atelier) et installé la macro sur le fichier.
Une dernière question, peut-on optimiser cette écriture ?
ex simple :
Sheets("Bouclage").Activate
ActiveSheet.Unprotect
Range("J46").Value = som
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
genre :
Sheets("Bouclage").activate.unprotect.Range("J46").Value = som ???
Encore merci Robert, excellent Week-end
Cordialement, papoow