Private Sub CommandButton1_Click()
Dim gf As Chart, plg As Range
Dim r As Range, a As Range, b As Range
With Sheets("EM")
Set r = .Columns(1).Find(What:=TextBox1, After:=.Cells(1, 1), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows)
Set a = r.Offset(, 1).Resize(12): Set b = r.Offset(, 6).Resize(12)
Set gf = Sheets("Graphique").ChartObjects(1).Chart
Set plg = .Range(Union(a, b).Address)
End With
gf.SetSourceData Source:=plg
Me.Hide
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Split("janvier²février²mars²avril²mai²juin²juillet²août²septembre²octobre²novembre²décembre", "²")
ComboBox1.ListIndex = Month(Date) - 1
TextBox1 = Year(Date)
End Sub