Sub Création_Graphv2()
'
' Création_Graphv2 Macro
'
'
'
JourReq = Sheets("Feuil2").Range("b14").Value
MoisReq = Sheets("Feuil2").Range("b15").Value
AnReq = Sheets("Feuil2").Range("b16").Value
Cells.Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Feuil3").Cells
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle = "Le titre du graph - Photo du " & JourReq & "-" & MoisReq & "-" & AnReq
End With
End Sub