Manipulation Excel

Bonjour

En imaginant que ta valeur est sur la feuille ("feuil1") :

Public Sub copiervaleur()
Dim ws As Object
For Each ws In Worksheets
ws.Range("b3").Value = Sheets("feuil1").Range("b3").Value
Next ws
End Sub

Salut
Hervé

Bonjour Christian et Hervé

Sans passer par une macro, quelques manips simples :

1- Cliquer à droite sur l'onglet de la feuille (En bas) ;
2- Cliquer dans la fenêtre sur Sélectionner toutes les feuilles ;
3- Cliquer deux fois dans "B3" pour activer la cellule ou cliquer une fois dans la barre de formule après sélection de "B3" puis faire "Entrée" ou cliquer sur l'icone Entrée ;
4- Cliquer sur un autre onglet pour sortir de l'ensemble des feuilles et vérifier que le texte est bien là.

Cordialement

CBernardT