Probleme de doublons.

Private Sub CommandButton1_Click()
    
    For i = 1 To 200
        For j = 4 To 9
            Num = Int((50 * Rnd) + 1)
            If j <> 4 Then
                While Not Range("D8").Resize(1, j - 4).Find(Num, , xlValues, xlWhole) Is Nothing
                    Num = Int((50 * Rnd) + 1)
                Wend
            End If
            Cells(8, j) = Num
        Next j
    Next i

End Sub

While Not Range("D8").Resize(1, j - 4).Find(Num, , xlValues, xlWhole) Is Nothing
    Num = Int((50 * Rnd) + 1)
Wend

Private Sub CommandButton1_Click()
  Dim tNum(1 To 1, 1 To 6)
  For i = 1 To 6
    Do
      Num1 = Int((50 * Rnd) + 1)
      On Error Resume Next
      Pos = WorksheetFunction.Match(Num1, tNum, 0)
      If Err.Number > 0 Then
        tNum(1, i) = Num1
        Exit Do
      End If
      On Error GoTo 0
    Loop
  Next i
[D8:I8].Value = tNum
End Sub

While Not Range("D8").Resize(1, j - 4).Find(Num, , xlValues, xlWhole) Is Nothing
    Num = Int((50 * Rnd) + 1)
Wend

[COLOR=#2f4f4f]Rnd (2327): Randomize[/COLOR]

Private Sub CommandButton1_Click()
  Dim num(6), i As Byte
  Randomize
            [COLOR=Blue]For k = 1 To 2000[/COLOR]
  num(0) = Int((50 * Rnd) + 1)
  Cells(8, 4) = num(0)
            [COLOR=Blue]Next[/COLOR]
  For i = 1 To 5
            [COLOR=Blue]For k = 1 To 2000[/COLOR]
1   num(i) = Int((50 * Rnd) + 1)
    For j = 0 To i - 1
      If num(j) = num(i) Then GoTo 1
    Next
    Cells(8, j + 4) = num(j)
             [COLOR=Blue]Next[/COLOR]
  Next
End Sub

Private Sub CommandButton1_Click()
'tableau à 2 dimensions 1 ligne, 6 colonnes
  Dim tNum(1 To 1, 1 To 6)
'boucle qui génère les 6 chiffres
  For i = 1 To 6
    Do
      Num1 = Int((50 * Rnd) + 1)
    'Là on regarde si le numéro existe dans le tableau à l'aide de "match", l'équivalent
    'EQUIV d'excel. Si la position n'est pas trouvée, cela génère une erreur d'où la gestion
    'd'erreur.
    'LA boucle Do...Loop permet de générer un nouveau chiffre si le chiffre est déjà dans
    'le tableau.
      On Error Resume Next
      Pos = WorksheetFunction.Match(Num1, tNum, 0)
      'si erreur, cela signifie que le nombre n'est pas dans le tableau
      If Err.Number > 0 Then
      'on ajoute dans le tableau
        tNum(1, i) = Num1
      'on sort de la boucle pour passer au chiffre suivant
        Exit Do
      End If
      On Error GoTo 0
    Loop
  Next i
'on "transfert" du tableau vers les cellules.
[D8:I8].Value = tNum
End Sub

Private Sub CommandButton1_Click()
'De la colonne 4 à 9
  For i = 4 To 9
    Do
    'LA boucle Do...Loop permet de générer un nouveau chiffre si le chiffre est déjà dans
    'la plage "D8:I8".
      Num1 = Int((50 * Rnd) + 1)
'Là on utilise "CountIf", le NB.SI d'excel, pour compter le nombre de fois que le chiffre
'se trouve dans la plage. Si 0, et bien on écrit dans la cellule et on sort de la boucle.
      If WorksheetFunction.CountIf([D8:I8], Num1) = 0 Then
        Cells(8, i).Value = Num1
        Exit Do
      End If
    Loop
  Next i
End Sub