Sub MontantBudgetPrévision()
Dim c As Range, Plage As Range, x As String
Dim L As Byte, Cl As Byte, L1 As Byte, C1 As Byte
Application.ScreenUpdating = False
L1 = ActiveCell.Row
C1 = ActiveCell.Column
x = Sheets("Opérations").Cells(L1, C1).Value
Set Plage = Sheets("Paramètres").UsedRange
Set c = Plage.Find(What:=x)
If Not c Is Nothing Then
L = c.Row
Cl = c.Column
ActiveCell.Offset(, 4) = Sheets("Paramètres").Cells(L, Cl).Offset(, 1)
End If
Application.ScreenUpdating = True