Sub Imputation_code_SIS_provisoire()
'
' Imputation_code_SIS Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Dim q As Integer, t
For q = Range("B65536").End(xlUp).Row To 2 Step -1
t = "=IFERROR($X" & q & "*SUMIF(ISEP!$BR:$BS,$G" & q & "&""/""&LEFT($C" & q & ",5)&""/""&LEFT($B" & q & ",8)&""/""&AD$8,ISEP!$BS:$BS)/SUMIF(ISEP!$BP:$BS,$G" & q & "&""/""&LEFT($C" & q & ",5)&""/""&LEFT($B" & q & ",8),ISEP!$BS:$BS),0)"
If Not IsEmpty(Range("G" & q)) And InStr(1, Range("G" & q), "RN") = 0 And InStr(1, Range("G" & q), "IMP") = 0 And InStr(1, Range("G" & q), "HEXP") = 0 Then
Range(Cells(q, 30), Cells(q, 46)).Formula = t
End If
Next q
End Sub