Salut tout le monde! Je veux écrire une macro qui vérifie si chaque nombre de la plage sélectionnée est premier et si c'est le cas le reécrit en rouge. Voici la macro que j'ai écrit:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Premier()
Dim Cellule As Object
For Each Cellule In Selection
    i = 2
    Do While ActiveCell.Value Mod i <> 0
    If ActiveCell.Value Mod i = 0 Then Cellule.Font.Color = vbBlack Else Cellule.Font.Color = vbRed
    i = i + 1
    Loop
Next Cellule
End Sub
Est ce que quelqu’un voit d'où viens l'erreur? Pouvez vous me corriger?? Merci!