[COLOR=green] ' Efface[/COLOR]
With Feuil2
.[A1].CurrentRegion.Delete xlToLeft
.[A3].CurrentRegion.Delete xlUp
End With
[COLOR=green]' Copie[/COLOR]
With Feuil1.[C6].CurrentRegion
.Copy Feuil2.[A1]
.Copy
Feuil2.[A3].PasteSpecial Transpose:=True
End With