'Période 1
Private Sub A_Click()
With Worksheets("C1")
Set Plage = .Range("C_1")
End With
Plage.Copy
Set Image1.Picture = PastePicture
End Sub
Private Sub B_Click()
With Worksheets("CnC1")
Set Plage = .Range("CnC_1")
End With
Plage.Copy
Set Image1.Picture = PastePicture
End Sub