Sub MacroNBCDES()
Dim ws As Worksheet, wb As Workbook
Set ws = ThisWorkbook.Sheets("le nom de la feuille")
On Error Resume Next
Set wb = Workbooks("SI 1 05 Tableau de bord 2011.xls")
If Not wb Is Nothing Then
With wb.Sheets("le nom de la feuille")
.Range("P2:P13").Copy ws.Range("C4")
End With
End If
End Sub