Sub rangecopy()
With Sheets("Feuil3")
.Activate
.Cells.Clear
xl_Paste Sheets("Saisie des Salaires").Range("A1:BB1"), .Range("A1:BB1")
xl_Paste Sheets("Saisie des Salaires").Range("A2:BB2"), .Range("A2:BB2")
xl_Paste Sheets("Saisie des Salaires").Range("A17:BB17"), .Range("A4:BB4")
xl_Paste Sheets("Saisie des Salaires").Range("A20:BB24"), .Range("A6:BB10")
xl_Paste Sheets("Saisie des Salaires").Range("A27:BB29"), .Range("A12:BB14")
xl_Paste Sheets("Saisie des Salaires").Range("A34:BB39"), .Range("A16:BB21")
End With
End Sub
Sub xl_Paste(source As Range, target As Range)
source.Copy
target.Select
ActiveSheet.Paste link:=True
target.PasteSpecial xlPasteFormats
target.PasteSpecial xlPasteColumnWidths
For Each cell In target
If cell.HasFormula Then
formule = Mid(cell.Formula, 2)
cell.FormulaLocal = "=si(" & formule & "="""";"""";" & formule & ")"
End If
Next
End Sub