Inserer texte 1ère ligne vide disponnible

Bonjour à tous,

Au lieu d'avoir une MsgBox qui s'ouvre quand la condition est fausse, je souhaiterai qu'il insère le texte de la MsgBox du code ci-dessous dans la feuille N°2 et dans la 1ère ligne vide de la colonne A disponible sachant que il y a plusieurs codes de ce type qui sont exécutés à la suite.

Set MaPlage = Sheets(3).Range("A7" & ":A" & DernLigne)
For Each cel In MaPlage 'pour toutes les cellules de la plage
    If cel.Value = "" Then 'si elle est vide alors
        'message à l'utilisateur
        MsgBox "La cellule : " & cel.Address & " n'est pas remplie." & Chr(10) & "Merci de corriger et de relancer les contrôles.", vbCritical
        'sortie de la procédure
        Exit Sub
    End If
Next

Merci pour votre aide.

Bonne journée.

bonjour,

une proposition, supprimer l'instruction exit sub pour avoir la liste de toutes les cellules vides dans la plage au lieu de n'avoir que la première cellule vide.

    Set MaPlage = Sheets(3).Range("A7" & ":A" & DernLigne)
    For Each cel In MaPlage    'pour toutes les cellules de la plage
        If cel.Value = "" Then    'si elle est vide alors
            'message à l'utilisateur
            dl = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
            Sheets(2).Cells(dl, 1) = "La cellule : " & cel.Address & " n'est pas remplie." & Chr(10) & "Merci de corriger et de relancer les contrôles."
            'sortie de la procédure
            Exit Sub
        End If
    Next

Merci beaucoup pour ton aide .

Bonne journée.