Private Sub CommandButton1_Click()
wbcible = ActiveWorkbook.Name
Dim ligne As Integer
ligne = 4
Application.Dialogs(xlDialogOpen).Show
wbnam = ActiveWorkbook.Name
Path = ActiveWorkbook.Path
If wbnam = wbcible Then Exit Sub
Workbooks(wbnam).Sheets("total par activité").Range("C4:BB4").Copy
Windows("total par année V2.xls").Activate
Sheets("par activité").Range("E" & ligne + 7).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(wbnam).Close False
Dim i As Currency
For i = 1 To 35 Step 1
Dim Nom As String
Nom = Cells(ligne, 2).Value
Dim NOM1 As String
NOM1 = "Suivi Heures_" & Nom & ".xls"
If Nom = "" Then Exit Sub
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & NOM1 & ""
wb = ActiveWorkbook.Name
Workbooks(wb).Sheets("total par activité").Range("C4:BB4").Copy
Windows("total par année V2.xls").Activate
Sheets("par activité").Range("E" & ligne + 7).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ligne = ligne + 1
Windows(wb).Close False
Next
Exit Sub
End Sub