Sub Coopt ()
Dim cel As Range, i As Long, T
T=Array("RM", "RMCe", "Rnan", "R",RMm", "Rdp", "RMCSha") ' attention erreur "R",RMm"
Application.ScreenUpdating = False
For i = LBound(T) To UBound(T)
With Worksheets(T(i))
.Range("I13:I47").Copy
.Range("D13").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
For Each cel In .Range("D13:D47")
cel.Formula = "=" & cel
Next cel
End With
Next i
Application.ScreenUpdating = True
End Sub