Bonjour à tous,

Je souhaiterai sur excel automatiser une tache : sauter une ligne lors de chaque nom + prénom différent.

Voici, ci-dessous, comment mes données se présentent :

Albert Fabien
Albert Fabien
Albert Fabien
Albert Florian
Ciota Jacques
Ciota Jacques
Debrube Robert


Ce que je souhaiterai faire :

Albert Fabien
Albert Fabien
Albert Fabien

Albert Clément

Ciota Jacques
Ciota Jacques

Debrube Robert


J'ai réfléchi sur un 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 ins()
lastr = Range("A65000").End(xlUp).Row
For i = lastr To 1 Step -1
nom1 = Left(Cells(i, 1).Value, InStr(Cells(i, 1).Value, " "))
nom2 = Left(Cells(i + 1, 1).Value, InStr(Cells(i + 1, 1).Value, " "))
If nom1 <> nom2 Then
Prenom1 = Left(Cells(i, 1).Value, InStr(Cells(i, 1).Value, " "))
Prenom2 = Left(Cells(i + 1, 1).Value, InStr(Cells(i + 1, 1).Value, " "))
If Prenom1 <> Prenom2 Then
Cells(i + 1, 1).Select
Selection.EntireRow.Insert Shift:=xlDown
End If
Next
End Sub
Cependant avec ce code je n'arrive pas à insérer un saut de ligne lorsque mes clients ont le même nom et un prénom différent (par exemple entre Albert Fabien et
Albert Clément).

Ce code me donne ça :

Albert Fabien
Albert Fabien
Albert Fabien
Albert Clément

Ciota Jacques
Ciota Jacques

Debrube Robert



Ce serait super si une personne pourrait m'aidé à modifier ce code.

Je vous remercie,

Fabien