Sub Macro14b()
' Macro14 Macro
' copie ligne plage test W3:AP3 vers B1
Dim Lig&, t
Lig = Cells(Rows.Count, "AP").End(3).Row
For i = 3 To Lig
Cells(i, "W") = 1
t = Cells(i, "W").Resize(, 20).Value
Cells(i, 2).Resize(, 20).Value = t
Erase t
Next
End Sub