' Juillet
' Création fichier temp
Set NewFeuil = Worksheets.Add(Sheets(1))
NewFeuil.Name = " temp"
' Copie / Colle feuille
Sheets("juillet").Activate
Sheets("juillet").Cells.Select
Selection.Copy
Sheets(1).Activate
Sheets(1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' Mise en forme
Sheets(1).Columns("A").Select
Selection.Delete Shift:=xlUp
Sheets(1).Range("F1:F65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
' sortie vers Synthèse
Sheets(1).Range("a1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Synthèse").Activate
Sheets("Synthèse").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' Suppression Temp
Application.DisplayAlerts = False
Worksheets(1).Delete
Application.DisplayAlerts = True
Sheets("index").Select
' Août
' Création fichier temp
Set NewFeuil = Worksheets.Add(Sheets(1))
NewFeuil.Name = " temp"
' Copie / Colle feuille
Sheets("Août").Activate
Sheets("Août").Cells.Select
Selection.Copy
Sheets(1).Activate
Sheets(1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' Mise en forme
Sheets(1).Columns("A").Select
Selection.Delete Shift:=xlUp
Sheets(1).Range("F1:F65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
' sortie vers Synthèse
Sheets(1).Range("a1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Synthèse").Activate
Sheets("Synthèse").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' Suppression Temp
Application.DisplayAlerts = False
Worksheets(1).Delete
Application.DisplayAlerts = True
Sheets("index").Select