Enregistrement information dans tableau

Bonjour à tous,

J'ai créé un soft permettant de gérer des erreurs. Il fonctionne parfaitement grace à des personnes de ce forum.

A présent je me retrouve avec mon fichier. J'ai une condition qui fonctionne ainsi :

Else

        For K = 2 To 1000
   If rech = Workbooks(WB_Soud).Sheets("DataCegid").Range("D" & K) Then

   MsgBox ("Problème détecté : Le transfert au soufflet n'a pas été effectué - Marquez sur la feuille : Transfert non réalisé au soufflet")
   Workbooks(WB_Soud).Worksheets("Transfert").Range("F11,B12,B13") = ""
   Workbooks(WB_Soud).Worksheets("Transfert").Range("F11").Select  'nettoyage de la feuille
   Chemin = "\\Srvcegid\200\Soft_production\" ' chemin pour les ordre de prod
    fichier = "admin2.xlsm"
    NomChemin = Chemin & fichier

        Workbooks.Open NomChemin
       Sheets("Erreur_trans").Select
       Cells(Rows.Count, 1).End(xlUp).Row = name2
   End If
   Next K
End If

Je vous ai mis que l'étape "sinon". On peut voir que je demande à ouvrir un autre fichier et d'activer la feuille Erreur_trans. Cette feuille est vide à ce jour.

Je souhaite remplir dans cette feuille :

Colonne 1 ligne 1: la date du jour

Colonne 2 ligne 1: Le nom du lot (qui a pour variable name2)

Puis enregistrer et fermer.

Jusque là pas de problème mais comment faire pour qu'à chaque fois (que ce sinon arrive dans mon traitement ) la date et le nom se mette à la suite :

colonne 1 ligne 2

colonne 2 ligne 2 etc

Je vous remercie d'avance

Bonjour,

Comme ceci:

    DerLig = Sheets("Erreur_trans").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Erreur_trans").cells(DerLig,"A").value <> "" Then DerLig = DerLig + 1
    Sheets("Erreur_trans").Range("A" & DerLig & ":B" & DerLig).Value = Array(Date, name2)

Cdlt

Merci beaucoup c'est parfait. Tout fonctionne à merveille.