Sub SanteAuto2()
'
' SanteAuto2 Macro
' Initialise une fiche dans un onglet en fonction des champs renseignés en page 1
'
' Touche de raccourci du clavier: Ctrl+q
'
    Sheets("Test Simon").Select
    Cells.Select
    Selection.Copy
    Sheets("BDD NE PAS TOUCHER").Select
    Sheets.Add
    ActiveSheet.Paste
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("CHOIX DE L ENTREPRISE").Select
    Range("G10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
                                                                		Sheets("Feuil1").Name = "Entreprise1"
                                                                		Sheets("Entreprise1").Select
    Application.CutCopyMode = False
                                                                		Sheets("Entreprise1").Name = "Entreprise1"
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A8:F9")
    ActiveSheet.ChartObjects("Chart 3").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A18:F19")
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 30
    ActiveSheet.ChartObjects("Chart 4").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A30:F31")
    ActiveSheet.ChartObjects("Chart 5").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A46:F47")
    ActiveWindow.SmallScroll Down:=27
    ActiveSheet.ChartObjects("Chart 6").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A58:F59")
    ActiveSheet.ChartObjects("Chart 7").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A68:F69")
    ActiveSheet.ChartObjects("Chart 8").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A77:F78")
    ActiveWindow.SmallScroll Down:=18
    ActiveSheet.ChartObjects("Chart 9").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("A90:F91")
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("CHOIX DE L ENTREPRISE").Select
    Range("I10").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("BDD NE PAS TOUCHER").Select
    ActiveSheet.Range("$A$1:$AQ$350").AutoFilter Field:=2, Criteria1:= _
                                                                   		"=775664873", Operator:=xlAnd
    Sheets("BDD NE PAS TOUCHER").Select
    Cells.Select
    Selection.Copy
    Sheets.Add
    Sheets("Feuil2").Select
    ActiveSheet.Paste
    Range("D2:H2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                              			Sheets("Entreprise1").Select
    ActiveWindow.SmallScroll Down:=-99
    Range("B9").Select
    ActiveSheet.Paste
    Sheets("Feuil2").Select
    Range("I2:M2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                                		Sheets("Entreprise1").Select
    Range("B19").Select
    ActiveSheet.Paste
    Sheets("Feuil2").Select
    Range("N2:R2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                                		Sheets("Entreprise1").Select
    ActiveWindow.SmallScroll Down:=24
    Range("B31").Select
    ActiveSheet.Paste
    Sheets("Feuil2").Select
    Range("S2:W2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                                		Sheets("Entreprise1").Select
    Range("B47").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=27
    Sheets("Feuil2").Select
    Range("X2:AB2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                                		Sheets("Entreprise1").Select
    Range("B59").Select
    ActiveSheet.Paste
    Sheets("Feuil2").Select
    Range("AC2:AG2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                                		Sheets("Entreprise1").Select
    Range("B69").Select
    ActiveSheet.Paste
    Sheets("Feuil2").Select
    Range("AH2:AL2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                                		Sheets("Entreprise1").Select
    Range("B78").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=24
    Sheets("Feuil2").Select
    Range("AM2:AQ2").Select
    Application.CutCopyMode = False
    Selection.Copy
                                                                		Sheets("Entreprise1").Select
    Range("B91").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("CHOIX DE L ENTREPRISE").Select
    Range("H10").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
                                                                		Sheets("Entreprise1").Select
    ActiveWindow.SmallScroll Down:=-102
    Range("A3:M3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A4").Select
    Sheets("Feuil2").Delete
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    ActiveWorkbook.Save
    Application.SendKeys "%{F4}"
    
End Sub