Sub Copie_Mois() 'avec une zone nommée directement dans la feuille ACCUEIL
Dim WbSource, WbDestination As Workbook
Dim agent
Dim i As Integer
Application.ScreenUpdating = False
Set WbSource = ActiveWorkbook 'Fichier actif c'est celui qui sert de source
'et qui contient les différents onglets listés ci dessous
Workbooks.Open Filename:="C:\Users\Jerome\Desktop\Gestion Absences ANTIN.xlsm"
Set WbDestination = ActiveWorkbook 'celui qui vient d'etre ouvert
i = 1
For Each agent In WbSource.Sheets("ACCUEIL").Range("ListeAgents")
WbSource.Sheets("" & agent & "").Range("jan_" & i).Copy
WbDestination.Sheets("janv_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Fev_" & i).Copy
WbDestination.Sheets("Fev_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Mars_" & i).Copy
WbDestination.Sheets("Mar_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Avr_" & i).Copy
WbDestination.Sheets("Avr_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Mai_" & i).Copy
WbDestination.Sheets("Mai_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Juin_" & i).Copy
WbDestination.Sheets("Juin_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Juil_" & i).Copy
WbDestination.Sheets("Juil_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Aout_" & i).Copy
WbDestination.Sheets("Aou_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Sept_" & i).Copy
WbDestination.Sheets("Sept_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Oct_" & i).Copy
WbDestination.Sheets("Oct_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Nov_" & i).Copy
WbDestination.Sheets("Nov_4").Cells(3, i + 1).PasteSpecial xlPasteValues
WbSource.Sheets("" & agent & "").Range("Dec_" & i).Copy
WbDestination.Sheets("Dec_4").Cells(3, i + 1).PasteSpecial xlPasteValues
i = i + 1
Next agent
Sheets(Array("janv_4", "Fev_4", "mar_4", "avr_4", "mai_4", "juin_4", "juil_4", "aou_4" _
, "sept_4", "oct_4", "nov_4", "dec_4")).Select
Sheets("janv_4").Activate
Range("B3").Select
Sheets("janv_4").Select
Application.ScreenUpdating = True
End Sub