oups j'ai du oublier? Merci ZON
je remet un fichier sinon voila la macro
Sub Macro3()
Dim compteur As Integer
Dim i As Long
Columns("c:c").Select
Selection.Insert Shift:=xlToRight
Range("a:ww").Select
Selection.Sort Key1:=Range("d1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("c1").Select
For i = 1 To Range("d65536").End(xlUp).Row
Rang = i
compteur = 0
Do
Rang = Rang + 1
compteur = compteur + 1
Cells(Rang - 1, 3) = compteur
Loop Until Cells(Rang, 4) <> Cells(Rang - 1, 4)
i = Rang - 1
Next
Cells.Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Application.ScreenUpdating = False
Valeur = Cells(6, 1)
For i = 1 To 65536
If Cells(i, 1) = "" Then
Range("A1").Select
Exit Sub
Else
If Cells(i, 3) <> Valeur Then
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
''''''Je pense que c'est ici qu'il faut faire la modif'''''''''''''''''''''''''''''''''''''''
i = i + 1
Valeur = Cells(i, 3)
End If
End If
Next i
Application.ScreenUpdating = True
Cells(1).Select
Range("A1").Select
End Sub
Pour quelle me face la somme des ligne inserée