Sub Copy()
Dim cel1 As String
Dim cel2 As String
Dim cel3 As String
Dim i As Integer
Dim ii As Integer
Dim iii As Integer
Dim iiii As Integer
Dim iiiii As Integer
Dim Date1 As String
Dim Date2 As String
Dim Rev1 As String
Dim Rev2 As String
Dim Pur1 As String
Dim Pur2 As String
Dim Som As Single
For i = 0 To 731 'compteur date tableau cbres par ligne
Date2 = Worksheets("CBRES").Cells(ii + 4, 1) 'ligne variable 1ere clonne
For ii = 0 To 731 'compteur date tableau Base par ligne
Date1 = Worksheets("Base").Cells(ii + 4, 22) 'ligne variable 1ere clonne
Rev1 = Worksheets("Base").Cells(ii + 4, 23) 'ligne variable 1ere clonne
Pur1 = Worksheets("Base").Cells(ii + 4, 24) 'ligne variable 1ere clonne
If Date1 = Date2 Then 'Controle la date
For iii = 0 To 127 'compteur Rev tableau cbre par collone
Rev2 = Worksheets("cbres").Cells(2, iii + 2) 'ligne 2 colonne variable
If Rev1 = Rev2 Then 'controle du Rev
For iiii = 0 To 127 'compteur Pur tableau cbre par collone
Pur2 = Worksheets("cbres").Cells(3, iiii + 2) 'ligne 3 colonne variable
If Pur1 = Pur2 Then 'controle du pur
Som = Worksheets("Base").Cells(ii + 4, 25) 'ligne variable 1ere clonne
End If
Next iiii
Worksheets("cbres").Cells(ii + 4, iiii + 2) = Som
End If
Next iii
End If
Next ii
Next i
End Sub