Re : Boucle macro historique
Ws1.Range("A" & IIf(Ws1.Range("A" & Rows.Count).End(xlUp).Row = 1, 1, Ws1.Range("A" & Rows.Count).End(xlUp).Row + 2)).Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Essaye peut-être avec le code ci-dessus (Non testé!) .
Si...