Synthétiser Tableau pour incrémenter une liste

Question

Je dispose d'un tableau qui a une mise en forme particulière et je souhaite que toutes ces informations soient synthétisées dans une liste qui s'incrémente avec un bouton. Créer un bouton n'est pas difficile en soit mais programmer les actions qui en découle est un tout autre problème. Mes connaissances en VBA étant très limitées (trop ...), je souhaiterais que vous m'aidiez à trouver une solution. Je vous remercie par avance pour votre aide Dido...

Amadéus · Accepted Answer

Le Bouton est en A1, le Code dans le Module1 Sub Ajoute() Dim ligne As Integer With Sheets("Suivi des demandes") ligne = .Range("A65536").End(xlUp).Row + 1 .Cells(Ligne,1)=.Cells(Ligne-1,1)+1 .Cells(ligne, 2) = Sheets("Réponse prog").Range("B5").Value .Cells(ligne, 3) = Sheets("Réponse prog").Range("B7").Value .Cells(ligne, 4) = Sheets("Réponse prog").Range("E9").Value .Cells(ligne, 5) = Sheets("Réponse prog").Range("E5").Value .Cells(ligne, 6) = Sheets("Réponse prog").Range("E7").Value .Cells(ligne, 7) = Sheets("Réponse prog").Range("B11").Value .Cells(ligne, 8) = Sheets("Réponse prog").Range("D11").Value .Cells(ligne, 9) = Sheets("Réponse prog").Range("D15").Value .Cells(ligne, 10) = Sheets("Réponse prog").Range("E16").Value .Cells(ligne, 11) = Sheets("Réponse prog").Range("F16").Value .Cells(ligne, 12) = Sheets("Réponse prog").Range("B19").Value End With Sheets("Réponse prog").Range("B5,B7,E3,E9,E5,E7,B9,B11,D11,D15,E16,F16,B19").ClearContents End Sub Cordialement...