WSSource.Cells(SR, SC).Value = CellSourceR.Offset(0, -1).Value ' Valeur'
WSSource.Cells(SR, SC).Interior.Color = RGB(255, 0, 0) ' Fond rouge'
WSSource.Cells(SR, SC).Font.Color = RGB(0, 0, 0) ' Police noire'
WSSource.Cells(SR, SC).Font.Bold = True ' En gras'