Bonjour Daniel, Moa, le forum,
fais un essai avec ce code :
Sub Macro1()
Columns('A:K').Select
Selection.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
'URL;Lien supprimé _
, Destination:=Range('A1'))
.Refresh BackgroundQuery:=False
End With
End Sub