Ecrire du texte dans plusieurs cellules

Bonjour, je voudrais pouvoir configurer des cellule a retranscrire le texte que j'écris dans un autre cellule.

Ex: j'écris quelques mots dans la case a1 et j'aimerais que la case a33 et 167 écrive la meme chose sans avoir a faire de copier coller.

Comment je pourrais m'y prendre et merci d'Avance ?

Salut DanyBoy,

soit par VBA

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
'
If Not Intersect(Target, Range("A1")) Is Nothing Then
    [A33] = Target
    [A167] = Target
End If
'
Application.EnableEvents = True
'
End Sub

soit en plaçant cette formule dans chacune des cellules-cibles

=SI(A1<>"";A1;"")

A+