Insérer une ligne sous condition

Bonjour

J'ai besoin d'insérer une ligne en début de chaque organisme différent (colonne D) sur le fichier je dois donc avoir une ligne vierge au dessus des lignes 2,8,17,18,19,20 etc..

Ne connaissant pas les macros quelqu'un peut-il me le faire ?

Merci grandement d'avance

Bonjour jano62, le forum,

A tester....

Sub test()

Application.ScreenUpdating = False

Dim i As Long, dl As Long
 With Sheets("Rapport 1")
   For i = 1 To 10000
    If .Range("D" & i) <> .Range("D" & i + 1) Then
     .Range("A" & i + 1 & ":J" & i + 1).Rows.Insert Shift:=xlDown
     .Range("A2:J2").Rows.Interior.ColorIndex = xlNone
     i = i + 1
    End If
   Next i
 End With

Application.ScreenUpdating = True
End Sub

Cordialement,

Bonjour xorsankukai

comme je le dis dans le message moi et les macros c'est comme Trump et la finesse, ça fait 2 !

je comprends pas le langage VBA

merci quand même

Re,

ctrl + E pour exécuter la macro (test)

Cordialement,

Merci xorsankukai

C'est OK cà marche !!