erreur de compilation

bonjour

j'ai un code quej'ai voulu l'utiliser pour deux fonction


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AN$2" Then
Sheets(CStr(Target.Value)).Cells.Copy
Sheets("calcul").Cells.PasteSpecial Paste:=xlPasteValues
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AL$2" Then
Sheets(CStr(Target.Value)).Cells.Copy
Sheets("calendrier").Cells.PasteSpecial Paste:=xlPasteValues
End If
End Sub




le code d'origine estais

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AN$2" Then
Sheets(CStr(Target.Value)).Cells.Copy
Sheets("calcul").Cells.PasteSpecial Paste:=xlPasteValues
End If
End Sub




merci d'avance