Super !!!
Avec vos propositions, j'obtiens donc au final ce code, qui copie/colle toute ma cellule (pour conserver le style de cellule), ce qui est plus parlant pour moi
Sub Test()
Dim i%, j%, col%, Dl%, Dc%, Lr%, Lc%
Dim Ws As Worksheet, Wd As Worksheet
Set Ws = Sheets("Feuil1")
Set...