VBA synthese colonnes sur recap selon critere

Sub syntheseinventmag()
'
' syntheseinventmag Macro
' Macro enregistrée le 20/12/2008 par Customer
'

'definition des parametres (feuilles, cellule sur laquelle operer la comparaison, cellule a additionner en fonction du critere
Dim Ws As Worksheet
Dim vCellule As Range
Dim vLigne As Integer
Dim vSom As Integer
Dim Trouve As Range
Dim c As Byte

On Error Resume Next

' On efface les colonnes "F:AF" de la feuille "RECAP" pour ne pas fausser les totaux
Sheets("RECAP").Range("F4:AF65536").ClearContents
'on parcourt chaque cellule de la colonne A ,en s'arretant a la derniere ligne non vide
'et on la compare a chaque cellule de la colonne A de chacune des feuilles.
For Each Ws In ActiveWorkbook.Worksheets 'boucle sur les feuilles
  If Ws.Name <> "RECAP" Then  'on compare la vCellule avec celle de la colonne A de la page RECAP
    For Each vCellule In Ws.Range("a4:a" & Ws.Range("A65536").End(xlUp).Row)
      Set Trouve = Sheets("RECAP").Range("A4:A3000").Find(vCellule.Value, LookIn:=xlValues)
      If Not Trouve Is Nothing Then
        vLigne = Trouve.Row
        For c = 6 To 32
          Sheets("RECAP").Cells(vLigne, c) = Sheets("RECAP").Cells(vLigne, c) + Ws.Cells(vCellule.Row, c)
        Next c
      End If
    Next vCellule
  End If
Next Ws
End Sub