Option ExplicitSub Import()
Feuil1.Activate
Range("A1").Select
With Selection.QueryTable
If Weekday(Date, vbMonday) = 1 Then .Connection = "URL;http://fr.wikipedia.org/wiki/Lundi"
If Weekday(Date, vbMonday) = 2 Then .Connection = "http://fr.wikipedia.org/wiki/Lundi"
If Weekday(Date, vbMonday) = 1 Then .Connection = "URL;http://fr.wikipedia.org/wiki/Mardi"
If Weekday(Date, vbMonday) = 3 Then .Connection = "URL;http://fr.wikipedia.org/wiki/Mercredi"
If Weekday(Date, vbMonday) = 4 Then .Connection = "URL;http://fr.wikipedia.org/wiki/Jeudi"
If Weekday(Date, vbMonday) = 5 Then .Connection = "URL;http://fr.wikipedia.org/wiki/Vendredi"
If Weekday(Date, vbMonday) = 6 Then .Connection = "URL;http://fr.wikipedia.org/wiki/Samedi"
If Weekday(Date, vbMonday) = 7 Then .Connection = "URL;http://fr.wikipedia.org/wiki/Dimanche"
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
End Sub