Sub Macro1()
Dim col As Byte 'déclare la variable col (COLonne)
Dim cel As Range 'déclare la variable cel (CELulle)
Dim pl As Range 'déclare la variable pl (PLage)
Dim tbl As Range 'déclare la variable tbl (TaBLeau)
Dim x As Integer 'déclare la variable x
Set tbl = Range("C2").CurrentRegion 'définit la plage tbl
Set tbl = tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1) 'redéfinit la plage tbl (sans la première ligne)
For col = 3 To 5 'boucle sur les 3 colonnes C, D et E
x = 0 'initialisation de la variable x
Set pl = Range(Cells(3, col), Cells(2, col).End(xlDown)) 'définit la plage pl (par rapport à la colonne)
For Each cel In pl 'boucle sur chaque cellule de la plage pl
'si il existe une seule occurence de la cellule dans la plage tbl, incrémente la variable x
If Application.WorksheetFunction.CountIf(tbl, cel) = 1 Then x = x + 1
Next cel 'prochaine cellule de la plage pl
Cells(col + 1, 8).Value = x 'place le nombre de fruits propre à chaque vendeur
Next col
End Sub