Sub lettrage()
Application.ScreenUpdating = False
Dim derlig As Long
With Worksheets("Autres fournisseurs")
derlig = .Range("a" & Rows.Count).End(xlUp).Row
.Range("E2:E" & derlig).ClearContents
For i = 2 To derlig
For j = i + 1 To derlig '
If .Cells(i, 5) = "" And .Cells(i, 6) > 0 Then
If .Cells(i, 3) = .Cells(j, 3) And .Cells(i, 6) = .Cells(j, 7) Then
.Cells(i, 5) = "A"
.Cells(j, 5) = "A"
End If
End If
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub