Recopie de la valeur de la cellule fusionée

[treza88]

Bonjour a tous,

Je suis a la recherche d'une formule me permettant de recopier la valeur d'une cellule fusionnéedans le principe de l'image ci dessous.
Et comme je suis une bille en formule specifique j'espere que quelqu'un va pouvoir me donner un coup de pouce.
Merci d'avance

 

[treza88]

Merci a vous tous,

Mais plus vous raccourcissez et plus je vais mettre de temps à analyser vos code respectif, mais bon c'est ça qui est intéressant en même temps.
Bon désolé mais j'en suis encore au #8, car j'ai pas eu trop le temps de travailler dessus, mais ça va venir.

 

[gosselien]

Bonjour,

à l'inverse perso je ne rempli pas les cellules mais je défusionne souvent (les tableaux des autres ) avec ceci:

Sub defusion()
For Each zaza In ActiveSheet.UsedRange
  If zaza.MergeCells Then
  zaza.Interior.ColorIndex = 3
  zaza.MergeCells = False
  End If
Next
End Sub