simplifier une petite macro

[zumye]

bonsoir
quelqu'un pourrait me simplifier cette macro:

Sub RBJ()
'
' RBJ Macro
' Macro enregistrée le 01/02/2008 par user2
'
' Touche de raccourci du clavier: Ctrl+r
'
ActiveCell.FormulaR1C1 = "R"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "B"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "J"
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

 

[gilbert_RGI]

Re : simplifier une petite macro

Bonjour

ceci
Sub RBJ()
x = Array("R", "B", "J")
For i = 0 To 2
ActiveCell.FormulaR1C1 = x(i)
ActiveCell.Offset(0, 1).Range("A1").Select
Next
End Sub
Cordialement
RGI

 

[zumye]

Re : simplifier une petite macro

merci pour la reponse