Bonjour,
Désolé mais le fil sur lequel vous aviez posté était cloturé depuis 2014 (case à cocher mise en rouge).
J'ai donc réouvert un nouveau fil et mettant la référence dans la demande
Sinon sans voir le vrai fichier, code à essayer :
Sub Copie()
'Macro Dan - 28/03/16
Dim i As Integer, dlg As Integer
Dim nbp As Byte
For i = 4 To Range("U" & Rows.Count).End(xlUp).Row
dlg = Range("B" & Rows.Count).End(xlUp).Row + 1
Do While nbp < Range("AE" & i)
Range("U" & i & ":AE" & i).Copy
Range("B" & dlg).PasteSpecial Paste:=xlValues
dlg = dlg + 1
nbp = nbp + 1
Loop
nbp = 0
Next
End Sub
Attention que le nombre de palette se trouvait en colonne AF et que ce code suppose que ce nombre de palette se trouve en colonne AE
Cordialement