Ligne variable dans formule

Bonjour à tous,

J'aurai besoin d'une petite aide.

J'ai créer une macro dans laquelle j'aimerai qu'une formule puisse intégrer une variable.

Sub Plombpiece()
'
' Plombpiece Macro
'
Dim x As String
'
x = ActiveCell.Row + 20

Rows("30:53").Copy
Selection.Insert Shift:=xlDown
Sheets("P.Données").Select
Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").FormulaR1C1 = "=' P.2'!R[187]C[16]"
Sheets(" P.2").Select
End Sub

----------
Dans Range("A2").FormulaR1C1 = "=' P.2'!R[187]C[16]"

J'ai besoin que le 187 corresponde à la variable x.

Merci de votre aide

Cédric