Re : Copier-coller de page web
Ok pierrot,
Le code modifié:
Sub ColleResume()
Dim montexte As String, c As Range, i As Integer
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:=False
i = 0
For Each c In Selection
If ActiveCell.Offset(i, 0) <> "" Then...