Bonjour Mdo100,
Je te remercie pour ton intervention.
With Sheets("Feuil2")
'With Sheets(Range("B1").Value)
Ce bout de code m'enlève la flexibilité dont j'ai besoin pour le tableau final où la feuille de destination change à de nombreuse reprises suivant le tâche accomplie. ce qui m'amène à lui préférer un with scheets(range("cellule").value)
Sheets("Feuil1").Range("A1").Copy
.Range("A" & Derligne).PasteSpecial Paste:=xlPasteValues
Sheets("Feuil1").Range("C8:C15").Copy
.Range("B" & Derligne).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Avec with scheet, je n'ai pas besoin de lui indiquer la feuille, si j'écris sans point je suis dans la feuil1, si j'écris avec point je suis dans la feuille de destination.
Je tente de d’alléger le code en fusionnant ce qui peu l'être car une fois les boucles misent en place et les variables ca devient vite lourd à lire, entretenir et quand il y a 6 ou 7 boucles à opérer dans le code final, ca pardonne pas même au niveau temps d’exécution. .