Sub formule()
Nbrligne = Range("a1").CurrentRegion.Rows.Count ' nbr de ligne
formuleG = "=""prov ove-""&J2"
formuleI = "=vlookup(E:E, 'base prov'!E:J,6,""FAUX"")"
Range("G2").Formula = formuleG
ActiveSheet.Range("I2").Formula = formuleI
Range("G2:G" & Nbrligne).FillDown
Range("I2:I" & Nbrligne).FillDown
Range("I:I").Copy
Range("I:I").PasteSpecial xlPasteValues
End Sub