Macro problème avec mon archivage

Bonjour

Petit soucis avec le codage de on archivage.

Crdlt

Nonno

Bonjour,

Quel est le souci ?

A+

Bonjour Nonno, AlgoPlus, le forum,

A tester....

Option Explicit
Public Sub Archiver()
 Dim lifs As Long, lifb As Long
 Dim ListObj As ListObject, Sh As Worksheet

     Set Sh = Sheets("Archives")
Set ListObj = Sh.ListObjects("TabArchives")
       lifb = Sh.Cells(Rows.Count, 1).End(xlUp).Row
       lifs = ActiveCell.Row

   If lifs < 18 Then Exit Sub

   If MsgBox("voulez vous archiver la ligne " & lifs & " ?", vbYesNo) = vbYes Then
    With ListObj
      Sh.Cells(lifb, 1) = Sheets("Mouvement").Range("C" & lifs)
      Sh.Cells(lifb, 2) = Sheets("Mouvement").Range("D" & lifs)
      Sh.Cells(lifb, 3) = Sheets("Mouvement").Range("E" & lifs)
      Sh.Cells(lifb, 4) = Sheets("Mouvement").Range("F" & lifs)
      Sh.Cells(lifb, 5) = Sheets("Mouvement").Range("G" & lifs)
      Sh.Cells(lifb, 6) = Sheets("Mouvement").Range("H" & lifs)
    End With
      ListObj.ListRows.Add
   End If
    MsgBox "Ligne " & lifs & " archivée"
End Sub

Cordialement,

Bonjour Xorsan

Ca a l'air si simple

Merci encore

Bonne journée

Nonno