Sub Transpose()
With Workbooks("ESSAI2").Sheets(1).[A2]
.CurrentRegion.Clear 'RAZ
Workbooks("ESSAI 1").Sheets(1).[A3].CurrentRegion.Copy
.PasteSpecial xlAll, Transpose:=True
Application.Goto .Cells
End With
Application.CutCopyMode = 0
End Sub
En effet, je viens de corriger, merci.Tu as écrit End If au lieu de End With
Le tri ? Quel tri ? Au post #1 vous ne parlez que de copier-coller.cependant, je voiudrai effectuer le tri par colonnes