Private Sub CommandButton1_Click()
Dim WsR As Workbook, WsRH As Workbook
Dim WsS As Worksheet, Ws As Worksheet
Dim Num_Semaine As Long, Nom_Onglet As String
Dim DerL_R As Long, DerL_RH As Long
'Ouvre le fichier Récap.xls
Workbooks.Open Filename:="C:\Documents and Settings\Admin\Bureau\Forum excel 2012\Récap.xls"
'Définit les classeurs
Set WsRH = ThisWorkbook
Set WsR = Workbooks("Récap.xls")
'Définit le N° de Semaine à importer
Num_Semaine = ThisWorkbook.Sheets(1).Range("A1")
'Définit le nom de l'onglet correspondant au N° de semaine
Nom_Onglet = "Rapport_N° " & Num_Semaine & "_" & Year(Date)
'Cherche la dernière ligne du classeur Rapport Hebdo
DerL_RH = WsRH.Sheets(Nom_Onglet).Cells(65536, 1).End(xlUp)(2).Row
'Cherche la dernière ligne du classeur Récap
DerL_R = WsR.Sheets(Nom_Onglet).Cells(65536, 1).End(xlUp)(2).Row
'Colle les données du classeur Rapport Hebdo dans le classeur Récap
WsRH.Sheets(Nom_Onglet).Range("A7:D" & DerL_RH).Copy WsR.Sheets(Nom_Onglet).Range("A" & DerL_R)
'Active le classeur Récap
WsR.Sheets(Nom_Onglet).Activate
End Sub
Merci