apres le suggestion de celeda, mon but est d optimiser mon probleme, voici mon programme:
Option Explicit
Sub RecupVolumeMatch()
'
' RecupVolumeMatch Macro
' Macro enregistrée le 23/07/2004 par c2m
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Dim ilignC1, ilignC10 As Integer
Dim C1, C10 As Integer
Dim tabl(10000) As String
C1 = 2
C10 = 10
Application.ScreenUpdating = False
ilignC10 = 1
Do While ActiveSheet.Cells(ilignC10, C10) <> ""
tabl(ilignC10) = ActiveSheet.Cells(ilignC10, C10)
ilignC10 = ilignC10 + 1
Loop
ilignC1 = 1
Do While ActiveSheet.Cells(ilignC1, C1) <> ""
ilignC10 = 1
Do While ActiveSheet.Cells(ilignC10, C10) <> ""
If ActiveSheet.Cells(ilignC1, C1) = tabl(ilignC10) Then
ActiveSheet.Cells(ilignC1, C1 + 3) = ActiveSheet.Cells(ilignC10, C10 + 1)
ActiveSheet.Cells(ilignC1, C1 + 4) = ActiveSheet.Cells(ilignC10, C10 + 2)
ActiveSheet.Cells(ilignC1, C1 + 5) = ActiveSheet.Cells(ilignC10, C10 + 3)
Exit Do
End If
ilignC10 = ilignC10 + 1
Loop
ilignC1 = ilignC1 + 1
Loop
Application.ScreenUpdating = True
End Sub