Sub test()
choix 1
MsgBox "test 1"
choix 2
MsgBox "test 2"
choix 3
MsgBox "test 3"
choix 4
MsgBox "test 4"
End Sub
Private Sub choix(n As Byte)
Dim vArr, i%
vArr = Application.Transpose([E2:E5])
For i = 1 To 4
Cells(i + 1, "H") = VBA.Replace(Cells(i + 1, "B"), "(couleur)", vArr(n))
Next
End Sub