Macro copier une partie de la ligne sur une autre feuille

Bonjour,

Débutant en macro, je pioche à gauche et à droite des infos.

Je suis presque au résultat voulu.

Sur ma feuille 1 j'ai réalisé des conditions.

Et surtout je transfère ma ligne en feuille 2 si la cellule en K est sur OUI. Mais il copie toute la ligne

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column <> 11 Or UCase(Target) <> "OUI" Then Exit Sub

Target.EntireRow[/u].Copy Sheets("ACCEPTES").Cells(Sheets("ACCEPTES").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)

Target.EntireRow.Delete shift:=xlUp

End Sub

Je vois bien le EntireRow,, moi je voudrais que les colonnes 1 à 10 .

Autre problème dans la colonne liens je mets mes devis en PDF sous forme d'onglet, mais lorsque la ligne est copiée, sur la première page l'objet PDF n'est pas supprimé.

Ensuite je veux exécuter le même principe macro entre ma feuille 2 et 3.

Merci de par avance de m'aider.

Bonjour,

Remplace cette ligne

Target.EntireRow.Copy Sheets("ACCEPTES").Cells(Sheets("ACCEPTES").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)

par

Range("A" & Target.Row & ":K" & Target.Row).Copy Sheets("ACCEPTES").Cells(Sheets("ACCEPTES").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)

Si cela doit se faire sur plusieurs feuilles, on peut faire une seule macro qui agit sur toutes les feuilles concernées aussi. Cela simplifierait..

Pour le deuxième souci, merci de donner plus d'explications ou un fichier --> "colonne Liens ???"

Crdlt