Bonjour,
j'ai trouvé cela que j'ai adapté:
Option Explicit Sub premiers() Dim i As Integer Dim j As Integer Dim Ipremier As Boolean Dim nombre As Integer nombre = InputBox("Entrez la quantité de nombre premier à rechercher", "Nombre premier", "100") Cells(1, 1).Value = 2 For i = 2 To nombre For j = 1 To Range("A65536").End(xlUp).Row If i Mod Cells(j, 1) = 0 Then Ipremier = True Exit For End If Cells(j, 2).Value = j Next j Cells(Range("A65536").End(xlUp).Row, 2).Value = Range("A65536").End(xlUp).Row If Ipremier = False Then Cells(Range("A65536").End(xlUp).Row + 1, 1) = i Ipremier = False Next i Cells(1, 1).Value = 1 End Sub Sub reinitialisation() Range([A1], [A65536].End(xlUp)).ClearContents Range([B1], [B65536].End(xlUp)).ClearContents End Sub 'https://excel-downloads.com/threads/nombre-premier.77715/