Sub nettoyage()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Not Evaluate("=ISERROR(SEARCH(""null"", B" & i & "))") Then
Rows(i).Delete
End If
Next i
End Sub
Sub rend3()
Range("H2").Select
    ActiveCell.FormulaR1C1 = "r_cac"
Dim x As Long
For x = 2 To [F65536].End(xlUp).Row - 1
Range("h" & x + 1) = Log(Range("F" & x + 1) / Range("F" & x)) * 100
Next x
End Sub
Sub bs100()
Range("j1").Select
    ActiveCell.FormulaR1C1 = "cac_100"
Dim x As Long
For x = 2 To [F65536].End(xlUp).Row
Range("j" & x) = (Range("F" & x) / Range("F" & 2)) * 100
Next x
End Sub