cellule code vba

Bonjour à tous,

J'ai un petit problème sur un code. En effet, je voudrais renommer la cellule A3 avec la cellule active (poste)...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sheets("bidule").Activate
Range("A2").Select
 
Do While ActiveCell.Value <> ""
      poste = ActiveCell.Value
    Sheets(poste).Activate
    Range("D2:S2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Open Filename:="chemin"
    Sheets("bidule2").Activate
    Range("A3").select
    ActiveCell.FormulaR1C1 = (poste)

bonjour,

Code:

activecell=poste

Merci beaucoup !!!