Bonjour,
Autre proposition, on réécrit directement les formules dans la feuille "IMPORT", mais au lieu de chercher le SLAxx, on vérifie que les 3 premiers caractères commencent par "SLA", (si j'ai bien compris):
Sub Formules()
Dim DerLig As Long
Application.ScreenUpdating = False
Sheets("IMPORT").Select
DerLig = Range("J" & Rows.Count).End(xlUp).Row
Range("N2:N" & DerLig).FormulaR1C1 = "=IFERROR(IF(AND(LEFT(RC10,3)=""SLA"",RC11=""NON CRITIQUE""),RC15/BONUS!R3C3," & Chr(10) & "IF(AND(LEFT(RC10,3)=""SLA"",RC11=""CRITIQUE""),RC15/BONUS!R3C8,"""")),"""")"
Range("O2:O" & DerLig).FormulaR1C1 = "=IF(AND(LEFT(RC10,3)=""SLA"",RC11=""NON CRITIQUE"",RC33>10),(RC33-BONUS!R3C5)*BONUS!R3C3," & Chr(10) & "IF(AND(LEFT(RC10,3)=""SLA""=""SLA01"",RC11=""CRITIQUE"",(RC31*24)>BONUS!R3C10),(RC33-2)*BONUS!R3C8,""""))"
Range("X2:X" & DerLig).FormulaR1C1 = "=IF(AND(LEFT(RC10,3)=""SLA"",RC11=""NON CRITIQUE""),BONUS!R2C17," & Chr(10) & "IF(AND(LEFT(RC10,3)=""SLA"",RC11=""CRITIQUE""),BONUS!R2C20,""""))"
Range("Y2:Y" & DerLig).FormulaR1C1 = "=IF(AND(LEFT(RC10,3)=""SLA"",RC11=""NON CRITIQUE""),BONUS!R3C16," & Chr(10) & "IF(AND(LEFT(RC10,3)=""SLA"",RC11=""CRITIQUE""),BONUS!R3C19,""""))"
End Sub
Cdlt