Bonjour à tous,
A partir d'un bouton sur une feuille excel, je lance ma macro
 
1. qui ouvre un document Word avec des tableaux (composé de lignes vides)    
2.la macro ci-dessous doit comptabiliser le nbre de lignes et m'affiche le total dans la dernier ligne de chaque tableau.  
 
 
 
 
     Dim i As Integer
     Dim nbTab As Integer
     Dim total As Integer
 
    i = 1
    'Comptabilise le nombre de tableau
    nbTab = Docword.Tables.Count
    'Affiche le nombre de tableau à traiter
    MsgBox (nbTab)
 
    While i < nbTab  'pour parcourir tous les tableaux du document
           
        'Sélectionne le premier tableau
        Docword.Tables(i).Select
        'nbre de lignes
        total = Selection.Rows.Count
        MsgBox (total)
           
        'Affiche le résultat
        Docword.Tables(i).Rows(total).Select
        Selection.Cells(1).AutoSum
         
        'Sélectionne le premier tableau et supprime les lignes sauf le résultat
        Docword.Tables(i).Select
        Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
        Selection.Rows.Delete
       
      i = i + 1
     
    Wend
 
Mon problème vient  sur la ligne :"Selection.Cells(1).AutoSum", impossible à comptabiliser le nbre de lignes ?
 
Merci à vous