Macros qui ne fonctionnent pas

Bonjour a tous

Ci joint un fichier excell ou j'ai tenté de developper des macros dans l'onglet AUTOMATIQUES

En appuyant sur le bouton ROUGE normalement le contenu de la ligne devrait se copier dans la base de données

Cela se produit mais lorsque je veux ajouter une autre operation celle ci vient ecraser la premiere dans la base de données

Il y a suremnt une ligne que j'ai mal orthographiée mais j'ignore laquelle

SVP un petit coup de pouce

Salut,

Un exemple de code que tu pourrais utiliser

Sub INDALL()
  Dim WsSource As Worksheet, WsCible As Worksheet
  Dim Tbl As ListObject
  Dim NewRow As ListRow
  Dim SourceRange As Range
  Dim i As Long
  ' Définir la feuille source (où vous copiez la ligne)
  Set WsSource = ThisWorkbook.Worksheets("Automatiques")
  ' Définir la feuille cible (celle qui contient Tableau1)
  Set WsCible = ThisWorkbook.Worksheets("Base de données")
  ' Référence au tableau structuré "Tableau1"
  Set Tbl = WsCible.ListObjects("Tableau1")
  ' Définir la ligne source à copier (par exemple la ligne 2 de la feuille "Automatiques")
  ' Ajustez la ligne selon votre besoin
  Set SourceRange = WsSource.Rows(2)
  ' Ajouter une nouvelle ligne dans le tableau
  Set NewRow = Tbl.ListRows.Add
  ' Copier les valeurs de la ligne source vers la nouvelle ligne du tableau
  For i = 1 To Tbl.ListColumns.Count
    NewRow.Range.Cells(1, i).Value = SourceRange.Cells(1, i).Value
  Next
  '
  ActiveWorkbook.RefreshAll
  Call PROIND
End Sub

A+

Super

Merci ca marche