Macro message box

Bonjour à Tous,

Je suis a la recherche du code , permettant de créé un message box , qui me donne le nombre de ligne copiés , voici ma macro me permettant le transfert de données

Sub Transfert_LLS_Suivi()
  Dim Dlig As Long, Lig As Long, nLig As Long
  Dim ShtS As Worksheet, ShtD As Worksheet
  Dim Dico As Object, sKey As String
  ' Définir les feuilles
  Set ShtS = ThisWorkbook.Sheets("LLS")
  Set ShtD = ThisWorkbook.Sheets("SUIVI")
  ' Dernière ligne remplie de la feuille source
  Dlig = ShtS.Range("A" & Rows.Count).End(xlUp).Row
  ' Nouvelles ligne de la feuille de destination
  nLig = ShtD.Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Row
  ' Définir le dictionnaire pour les doublons et le remplir
  Set Dico = CreateObject("Scripting.Dictionary")
  With ShtD
    For Lig = 2 To nLig - 1
    sKey = .Range("I" & Lig).Value
    Dico(sKey) = ""
    Next Lig
  End With
  With ShtS
    For Lig = 2 To Dlig
      If .Rows(Lig).Hidden = False Then
      sKey = .Range("N" & Lig).Value
        ' Si clé n'existe pas
        If Not Dico.Exists(sKey) Then
          ' L'ajouter
          Dico.Add sKey, ""
          ' Copier les données
          ShtD.Range("B" & nLig).Value = ShtS.Range("A" & Lig).Value
          ShtD.Range("C" & nLig).Value = ShtS.Range("B" & Lig).Value
          ShtD.Range("D" & nLig).Value = ShtS.Range("D" & Lig).Value
          ShtD.Range("E" & nLig).Value = ShtS.Range("E" & Lig).Value
          ShtD.Range("F" & nLig).Value = ShtS.Range("I" & Lig).Value
          ShtD.Range("G" & nLig).Value = ShtS.Range("J" & Lig).Value

          ' Incrémenter les nouvelle lignes
          nLig = nLig + 1
        End If
      End If
    Next Lig
  End With
  Set ShtD = Nothing: Set ShtS = Nothing

   'message box de confirmation
  MsgBox "Transfert OK !", vbInformation, "Terminée !"

  MsgBox "Copie de " &

End Sub

j'ai commencée à écrire

MsgBox "Copie de " &

je pensée faire Application subtotal , mais je peine a comprendre la syntaxe .( en plus ma macro prend en compte de ne pas copier les données en doublon)

le but du message = copie de x lignes dans le Suivi ( déjà présent x lignes)

Merci d'avance pour votre aide ,

Bonne journée

Bonjour,

Je ne vois pas trop à quoi te sert le dico ici, tu ne le réutilises pas ensuite (me semble-t-il).

Ca donne quoi si tu essaies

MsgBox ("Copie de " & dico.skey.count)

Bonjour ,

il me semble que si , puisque c'est ce qui me permet d'éviter de copier les doublons . ( je n'est pas conçu la macro ,mais copier d'un forum et réadapter a mon fichier)

Malheureusement il me mais en erreur lorsque j'ai rajouter

MsgBox ("Copie de " & dico.skey.count)