simplifié une macro

Sub tube1()
Range("B18").FormulaR1C1 = "b"
Range("C18").FormulaR1C1 = "o"
Range("D18").FormulaR1C1 = "j"
Range("I19").FormulaR1C1 = "R"
Range("J19").FormulaR1C1 = "B"
Range("K19").FormulaR1C1 = "J"
Range("P19").FormulaR1C1 = "n"
Range("Q19").FormulaR1C1 = "b"
Range("AG19:AH19").FormulaR1C1 = "0.2"
Range("AD20").Select
End Sub

Sub test()
Dim tab1() As Variant: Dim tab2() As Variant
Dim i As Integer
tab1 = Array("b", "o", "j"): tab2 = Array("R", "B", "J")
For i = 0 To 2
Cells(18, 2 + i) = tab1(i)
Cells(19, 9 + i) = tab2(i)
Next i
Range("P19") = "n"
Range("Q19") = "b"
Range("AG19:AH19").FormulaR1C1 = "0.2"
Range("AD20").Select
End Sub

Sub tube1()
Range("B18").Formula = "b"
Range("C18").Formula = "o"
Range("D18").Formula = "j"
Range("I19").Formula = "R"
Range("J19").Formula = "B"
Range("K19").Formula = "J"
Range("P19").Formula = "n"
Range("Q19").Formula = "b"
Range("AG19:AH19").Formula = "0.2"
Range("AD20").Select
End Sub