bonjour le forum
ce codene veux pas que je lui ajoute les cellules K et L sans retourner a range
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 lig = Range("B19").End(xlDown)(1).Row Range("B19").End(xlDown)(1).EntireRow.Insert Range("C" & lig + 1, "I" & lig + 1 & ":J" & lig + 1).Copy Range("C" & lig)par débogage, j'ai bien essayer de rajouter une ligne de code mais le résultat ne me convient pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part Range("C" & lig + 1, "I" & lig + 1 & ":J" & lig + 1).Copy Range("C" & lig)
bonne journée
cordialement
Pascal
Partager