Bonsoir Didier, Jean Philippe,
excusez-moi de m'inmiscer dans votre fil, comme je débute, je désire seulement savoir si j'ai bien compris :
je pense qu'ici
Range(Cells(82, 2), Cells(100, 3)).PasteSpecial Paste:=xlPasteFormats
il faudrait faire :
Range(Cells(82, 2), Cells(200, 3)).PasteSpecial Paste:=xlPasteFormats
Pour mon instruction, merci de me le confirmer où de me dire si je n'ai pas, comme Jean Philippe, compris.