Bonjour à tous !

J'ai codé ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton2_Click()
 
Dim Cell As Range
 
    Application.ScreenUpdating = False
 
    For Each Cell In Range("CE12:CE397")
 
        If Cell.value <> "N" Then
 
            Cells(Cell.Row, 83).value = "N"
        End If
    Next
 
End Sub
Le code marche parfaitement bien (il remplace les valeurs différentes de N par N). Le problème c'est le temps d'execution (un peu moins d'une minute), en effet il y a énormément de lignes à vérifier et modifier.

Je me demandais donc, si il y avait une astuce pour optimiser ce temps de traitement ? (à part changer de PC bien-sûr ^^).

Merci pour votre aide !