Bonjour,
Je souhaite insérer une ligne qui copie la précédente à chaque changement de valeur
Je fais pour ajouter la ligne :
Sub insérer()
Dim Ligne As Long
For Ligne = Range("A1").End(xlDown).Row To 2 Step -1
If Range("A" & Ligne) <> Range("A" & Ligne - 1) Then
Range("A" & Ligne).EntireRow.Insert
End If
Next
End Sub
Mais je n'arrive pas à modifier pour copier la ligne précédente !
Merci d'avance
Cordialement
Je souhaite insérer une ligne qui copie la précédente à chaque changement de valeur
Je fais pour ajouter la ligne :
Sub insérer()
Dim Ligne As Long
For Ligne = Range("A1").End(xlDown).Row To 2 Step -1
If Range("A" & Ligne) <> Range("A" & Ligne - 1) Then
Range("A" & Ligne).EntireRow.Insert
End If
Next
End Sub
Mais je n'arrive pas à modifier pour copier la ligne précédente !
Merci d'avance
Cordialement