Microsoft 365 incorporer des lignes dans une autre feuille selon titre

Bonjour et bienvenue sur Excel Downloads
Qu'est ce que tu appelles : la ligne des titres de la feuille "RECAP"

A+ François

Bonjour
Ci joint ma solution (sans les sommes)

A+ François

Bonjour,
Un grand merci pour votre réponse.
Toutefois, je mettrais régulièrement à jour le tableau "RECAP", il faudrait donc réinitialiser le tableau afin qu'il ne recopie pas les mêmes lignes et que les lignes soient en couleur différentes (.Interior.ColorIndex = 4).
Est-ce possible ?
Merci d'avance pour votre aide.

Bonjour
Quelle ligne doivent être en colorindex 4
J'ai ajouté un bouton sur la feuille RECAP... pour effacer toutes les données de la feuille RECAP
Mais j'ai un doute que ce n'est pas ce que tu veux
Si j'ai bien compris les lignes copiées doivent être d'une autre couleur pour ne pas les copier plusieurs fois?

A+ François

Merci pour votre rapide réponse.
Les titres de la feuille "RECAP" ne doivent pas être supprimées.
Je souhaiterais que les lignes de la feuille "SUIVI" soient copiées dans la feuille "RECAP" de la même couleur, si possible, que dans la feuille "SUIVI" et qu'elles ne soient pas copiées à chaque fois qu'on clique sur le bouton "Transfert".
Merci d'avance.

J'ai ajouté, sur la feuille Suivi une colonne RECAP
Après la copie cette cellule prend un X
Donc si X pas de copie


A+ François

Merci beaucoup !
Cependant, si un paiement est effectué, il n'apparaitra pas dans ma feuille "RECAP", il faudrait une mise à jour du fait que s'il n'y a pas de date paiement, il ne doit pas apparaitre dans la colonne "J" de la feuille "RECAP" mais dès que le paiement est effectué (date cellule T de la feuille "SUIVI" complétée), il doit apparaître dans la colonne "J" de la feuille "RECAP"

Sub transfert1()
Dim i As Long, c As Range, lig As Long
For i = 1 To [T_suivi].Rows.Count
Set c = Sheets("RECAP").Columns(1).Find([T_suivi].Item(i, 1), LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
lig = c.Row
While Left(Sheets("RECAP").Range("A" & lig), 2) = [T_suivi].Item(i, 1)
lig = lig + 1
Wend
' MsgBox lig
[T_recap].Rows(lig - 5).Insert
[T_recap].Item(lig - 5, 1) = c.Value
[T_recap].Item(lig - 5, 2) = [T_suivi].Item(i, 2)
[T_recap].Item(lig - 5, 3) = [T_suivi].Item(i, 3)
[T_recap].Item(lig - 5, 4) = [T_suivi].Item(i, 5)

If [T_suivi].Item(i, 8) <> "" Then
[T_recap].Item(lig - 5, 9) = [T_suivi].Item(i, 8)
Else
[T_recap].Item(lig - 5, 9) = [T_suivi].Item(i, 22)
End If
If [T_suivi].Item(i, 20) <> "" Then
[T_recap].Item(lig - 5, 10) = [T_suivi].Item(i, 22)
Else
[T_recap].Item(lig - 5, 10) = ""
End If
End If
Next
MsgBox ("Mise à jour terminée !" & vbCrLf & vbCrLf & "Merci ")
End Sub

Merci d'avance de votre aide

Bonjour
La colonne 10 de recap etant "CP consommés" j'ai mis la date colonne 11

A+ François

Bonjour,
Un grand Merci François pour ton aide.
Cependant, ma feuille RECAP ne doit pas être modifiée.
Le top serait qu'à chaque clic sur le bouton TRANSFERT qui est fait régulièrement pour voir où nous en sommes, les lignes de la feuille "SUIVI" soit intégrées selon le compte (colonne D) de la feuille "RECAP" avec la même couleur de ligne que celles de la feuille "SUIVI" (soit vert clair).
Les lignes déjà copiées dans la feuille "RECAP" ne doivent pas être recopiées mais mises à jour selon si un paiement est fait et copiées les autres si elles n'y sont pas.
Une fois le transfert effectué, voir les sommes dépensées qui apparaissent sur les lignes du tableau "RECAP" selon les comptes dans les colonnes I (AE consommées) et J (CP consommées) afin de voir e qui reste sur chaque compte.
Merci d'avance pour votre aide.
J'ai beau cherché mais je ne vois rien qui corresponde à mon problème.
Cordialement.