Private Sub Image3_Click()
Sheets("comptable").Range("A2").Value = ComboBox1.Value
Sheets("comptable").Range("d2").Value = ComboBox2.Value
Sheets("comptable").Range("e2").Value = ComboBox3.Value
Sheets("comptable").Range("g2").Value = ComboBox4.Value
Sheets("comptable").Range("f2").Value = ComboBox5.Value
Sheets("comptable").Range("h2").Value = ComboBox6.Value
Sheets("comptable").Range("i2").Value = ComboBox7.Value
Range("Tableau10[#All]").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("comptable!Criteria"), Unique:=True
Set Source = Range("Tableau10[#All]")
Source.CopyPicture xlScreen, xlPicture
Set gr = Sheets("temp").ChartObjects.Add(0, 0, Source.Width, Source.Height)
gr.Chart.Paste
gr.Chart.Export ThisWorkbook.Path & "\image" & ".jpg", "jpg"
gr.Delete
UserForm4.Show
Unload Me
End Sub