Copier la cellule active ailleur

Bonjour! je cherche a copier la cellule active dans la cellule B3. J'ai ecris ce petit bout de code mais il ne marche pas. Mon ".paste" n'est pas accepte!

Private Sub CommandButton4_Click()
'bouton B.P.
 With ActiveCell
    .Interior.ColorIndex = 4
    .Copy
    Range("B3").Select
    .Paste
    Application.CutCopyMode = False
  End With
End Sub

Bonjour

With ActiveCell
        .Interior.ColorIndex = 4
        .Copy Range("B3")
        Application.CutCopyMode = False
      End With

Amicalement

Nad

Merci NAD, que me manque t-il pour pouvoir centrer verticalement le contenu de B1?

Private Sub CommandButton4_Click()
'bouton B.P.
 With ActiveCell
    .Interior.ColorIndex = 4
    .Copy Range("B1")
    Application.CutCopyMode = False
     .VerticalAlignment = xlCenter      ' Centre les données
 End With

End Sub

Re

Private Sub CommandButton4_Click()
'bouton B.P.
With ActiveCell
    .Interior.ColorIndex = 4
    .Copy Range("B1")
    Application.CutCopyMode = False
End With
Range("B1").VerticalAlignment = xlCenter     ' Centre les données
End Sub

Amicalement

Nad

J'aurais du y penser qu'il fallais mettre ca en dehors du "with".

Merci Nad, je ferme le post.