XL 2019 macro insérer une ligne automatique

[le___destin]

bonsoir tout le monde
quelqu’un peut m'aider de faire un macro si A12 non vide il ajouter un ligne apres puis si A13 non vide il ajoute un autre

 

[Hasco]

Bonjour,

Proposition dans fichier joint:

Sub AjoutLignes()
    Dim lo As ListObject
    Dim lx As Long
    Set lo = ThisWorkbook.Sheets("amigo").ListObjects("Tableau3")

    If Not lo.DataBodyRange Is Nothing Then
        On Error GoTo FIN_IF
        Application.ScreenUpdating = False
        For lx = lo.ListRows.Count To 1 Step -1
            If lo.ListRows(lx).Range(1) <> "" Then lo.ListRows.Add lx + 1
        Next
FIN_IF:
        Application.ScreenUpdating = True
    End If
End Sub

Cordialement

 

[le___destin]

merci Roblochon
ça marche
y'a-t-il une solution pour que cet macro d'éclanche dès que A12 soit non vide
je veut dire sans bouton insérer

 

[Hasco]

Re,

C'est une autre question et il faut faire autrement! J'ai répondu à la question telle qu'elle était posée.
Maintenant si la demande évolue, je ne vais pas refaire à chaque fois. A vous de savoir exactement ce que vous voulez et de poser des question claires et précises dès le début.

Bonne continuation

 

[le___destin]

merci