J'ai effectué un test simplement sur la colonne des références de la tournée 1, à copier sur une cellule, mais j'ai un message box erreur 400 ... Je compte répéter l'opération sur les autres et les compléter sur un tableau d'une autre feuille avec un rechercheV qui viendra trouver les détails de la tournée
Sub testptv1()
Dim NombrestopPTV1 As Range
Set NombrestopPTV1 = Tournées.Cells(B4)
Application.ScreenUpdating = False
Do
Set NombrestopPTV1 = NombrestopPTV1.End(xlDown): If NombrestopPTV1.Value = "" Then Exit Do
With NombrestopPTV1.CurrentRegion.Rows
If .Columns.Count = 3 Then NombrestopPTV1(2, 4).Resize(.Count - 1).Value = NombrestopPTV1.Value
Set NombrestopPTV1 = NombrestopPTV1(.Count)
End With
Loop Until NombrestopPTV1.Row = Rows.Count
Set NombrestopPTV1 = Nothing
'Activation de la feuille Commandes
Sheets("Tournées").Select
'Collage du code commande
NombrestopPTV1.Copy
Cell("N37").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub