Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("$L$1")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If Target.Value = 1 Then
Call importlundi
End If
If Target.Value = 2 Then
Call importmardi
End If
If Target.Value = 3 Then
Call importmercredi
End If
If Target.Value = 4 Then
Call importjeudi
End If
If Target.Value = 5 Then
Call importvendredi
End If
If Target.Value = 6 Then
Call importsamedi
End If
End If
End Sub