Sub Macro1()
Dim i As Byte 'déclare la variable i (Incrément)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
For i = 7 To 34 'boucle 1 : sur les ligne 7 à 34 (à adapter à ton cas)
Set pl = Range(Cells(i, 1), Cells(i, 6)) 'définit la plage pl (colonnes A à G)
For Each cel In pl 'boucle 2 : sur toutes les cellules cel de la plage pl
'si la cellule est diférente de zéro et si le nombre d'occurrences de la valeur de la cellule dans la plage pl
'est suprérieur à 1, écrir "Doublons dans la colonne H
If cel.Value <> 0 And Application.WorksheetFunction.CountIf(pl, cel) > 1 Then Cells(i, 8).Value = "Doublons"
Next cel 'prochaine cellule de la booucle 2
Next i 'prochaine ligne de la boucle 1
End Sub