Dim coule(0 To 4, 0 To 999) As String 'variable matrice de stockage des valeurs de la liste
Dim temp(0 To 1, 0 To 99) As String
Sub macro()
'Création de la liste coule
Sheets("COULE").Select
c = 0
For a = 2 To 1001
doublon = False
For b = 0 To c - 1
If coule(0, b) = Cells(a, 1).Value Then
coule(3, b) = coule(3, b) + Cells(a, 4).Value
doublon = True
End If
Next b
If doublon = False Then
coule(0, c) = Cells(a, 1).value
coule(1, c) = Cells(a, 2).value
coule(2, c) = Cells(a, 3).value
coule(3, c) = Val(Cells(a, 4).value)
coule(4, c) = 3 + 20 * c
c = c + 1
End If
Next a
'Création de la feuille suivit
Sheets("SUIVIT").Select
Cells.Select
Selection.Delete Shift:=xlUp
inter = 3
For j = 0 To 999
For i = 0 To 3
Cells(inter, i + 1).Value = coule(i, j)
Next i
inter = inter + 20
Next j
End Sub