XL 2016 Modif code, transfert ligne par ligne

[Scorpio]

Bonjour à tous,
J'ai un soucis dans un code, voici sont nom, Sub DepLigneCouleur()
En fait ce code transfert ligne par ligne de la feuille "FactureOuverte" à la feuille "FacturePayé", si le texte est en rouge dans la colonne "A". Faire double-Clic en colonne "A"
Mais, j'aimerais transférer seulement de la colonne A à I, et ce code me transfert la ligne jusqu'à O
Y aurait-il un membre pour me donner un coup de pouce s'il vous plaît
Merci, a ++++

 

[job75]

Bonjour Scorpio,

Remplacer la ligne :

                cel.EntireRow.Cut dercel(2)   'coupe et colle la ligne

par ces 2 lignes :

                cel.Resize(, 9).Copy dercel(2) 'copie la plage
                cel = "" 'pour ensuite permettre la suppession de la ligne

A+

 

[Scorpio]

Bonjour job75,
Super, ça marche bien, j'ai corrigé le 9 par 8, car je me suis trompé, c'est jusqu'à la colonne H.
Si non, merci beaucoup, très gentil.
A+++++job75