For lig = 2 To nblibtrouve
Set o = r.[A:A].Find(i.Cells(lig, 1))
If Not o Is Nothing Then
premier = o.Address
Do
If r.Cells(o.Row, 4) = i.Cells(lig, 4) And _
r.Cells(o.Row, 10) = i.Cells(lig, 10) Then
testlig = o.Row
testcol = Application.WorksheetFunction.Match(Mid(i.Cells(2, 16), 2), r.[1:1], 0)
r.Cells(o.Row, testcol) = i.Cells(lig, 12)
Else
Set o = r.[A:A].FindNext(o)
End If
Loop While Not o Is Nothing And o.Address <> premier
End If
Next lig