Sub recopie()
Dim s1 As Worksheet, s2 As Worksheet, sSt$, i&
Set s1 = Sheets("Sécurité")
Set s2 = Sheets("Résultats")
With s1
sSt = _
.[H12] & "/" & _
.[H16] & "/" & .[H60] & "/" & _
.[H81] & "/" & .[H113]
End With
For i = 0 To 4
s2.Cells(14 + (i + 1), "E") = _
Format(Val(Split(sSt, "/")(i)) * 0.01, "0.00%")
Next
End Sub