Bonjour le forum,

J'essai de créer un script afin d'insérer une ligne vide a chaque fois que Cells(i, 2) <> Cells(i + 1, 2)

L'objectif est d'insérer la ligne vide entre i et i +1 et c'est là que ça coince. Je ne sais pas comment écrire cette condition. est ce que quelqu'un peut m'orienter?

Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Add_empty_row()
 
Dim i As Long
 
For i = 2 To 67
 
 
If Cells(i, 2) <> Cells(i + 1, 2) Then
Selection.EntireRow.Insert
End If
Next
 
 
End Sub