Insérer une nouvelle ligne après cellule non vide

Bonjour à tous,

je ne connais malheureusement pas VBA et ne trouve pas de macro qui corresponde à mon besoin sur le net.

Je cherche "simplement" à insérer une ligne dans une feuille de calcul si la cellule de la colonne A n'est pas vide et ce sur un tableau qui comporte quelques mille lignes (donc manuellement un peu long...)

Autrement dit, si la cellule A10 n'est pas vide, insérer une ligne sous A10 et ainsi de suite jusqu'à la fin du tableau.

J'espère être clair dans l'expression de mon besoin

Si quelqu'un pouvait m'aider ce serait vraiement génial

merci à tous par avance

Bonjour,

Essaie avec cette macro

Sub Test()
Dim i As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    With Worksheets("Feuil1") 'Nom de feuille à adapter
        For i = .Range("A" & Rows.Count).End(xlUp).Row To 10 Step -1
            If .Range("A" & i).Offset(1).Value <> "" And .Range("A" & i).Value <> "" Then
                .Range("A" & i).Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            End If
        Next i
    End With
    Application.Calculation = xlAutomatic
End Sub

A+

Bonjour Frangy,

merci beaucoup pour ta réponse mais en fait je crois que ça insère une cellule et pas une ligne enfin je suis pas sur mais le resultat n'est pas tout a fait celui escompté

je te joins le resultat ici pour que tu puisses comprendre mieux que moi...

Oups !

A+

Encore merci Frangy pour ton aide; je n'ai pas la possiblité d'ouvrir le fichier actuellement mais je te fais un retour dès que possible

merci pour ton aide en tous cas

bonne journée