Sub Macro1()
if range("H3") = "Employee 1" Then
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveChart.SetSourceData Source:=sheets("sheet7").Range("F20:G27,I20:K27,N20:O27")
Elseif range("H3") = "Employee 2" Then
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveChart.SetSourceData Source:=sheets("sheet7").Range("F30:G37,I30:K37,N30:O37")
else
'ce qu'il faut faire si ce n'est ni employé 1 ni employé 2
msgbox ("ce n'est ni l'employé 1 ni l'employé 2")
End IF
End Sub