formule dans vba

Salut le forum,

Bonne semaine à tous!

J'ai une question concernant une formule.

J'essaie de mettre une formule dans une macro vba mais dès que je la fait fonctionner, elle s'emballe et ne s'arrète plus (elle s'exécute à l'infini...). La ligne qui pose problème semble être celle que j'ai mis entre <b></b>.

J'espère que vous saurez m'aider.
Merci d'avance,

nanor


Select Case (UCase(Range("A3").Value))
Case "JANVIER"
Cells.EntireColumn.Hidden = False
Cells.Font.ColorIndex = 1
Columns("T:BK").EntireColumn.Hidden = True
Columns("BPG").EntireColumn.Hidden = True
Columns("DJT").EntireColumn.Hidden = True
Range("R8, BM8, BN8").Font.ColorIndex = 5
<b> Range("J9").Formula = "=+S9"</b>

Case "FEVRIER"
Cells.EntireColumn.Hidden = False
Cells.Font.ColorIndex = 1
Columns("X:BK").EntireColumn.Hidden = True
Columns("BM:BP").EntireColumn.Hidden = True
Columns("BTG").EntireColumn.Hidden = True
Columns("DII").EntireColumn.Hidden = True
Columns("DKT").EntireColumn.Hidden = True
Range("V8, BQ8, BR8").Font.ColorIndex = 5

Case "MARS"
Cells.EntireColumn.Hidden = False
Cells.Font.ColorIndex = 1
Columns("AB:BK").EntireColumn.Hidden = True
Columns("BM:BT").EntireColumn.Hidden = True
Columns("BXG").EntireColumn.Hidden = True
Columns("DIJ").EntireColumn.Hidden = True
Columns("DLT").EntireColumn.Hidden = True
Range("Z8, BU8, BV8").Font.ColorIndex = 5
Case Else
End Select