Bonjour à tous,

Je cherche à exécuter cette macro car j'ai une BDD d'environ 4000 lignes et j'ai 100 codes clients à récupérer environ (colonne B).
Cependant, elle tourne dans le vide :

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
16
Dim i As Integer
Dim var
i = 2
var = 0
Sheets("Résultats").Select
Do While Range("A" & i) <> ""
        Sheets("Résultats").Select
        var = Range("B" & i).Value
        If var = 2950 OR 3100 Then
             i = i + 1
        Else
            ActiveCell.EntireRow.Delete
            i = i + 1
        End If
Loop
End Sub
En fait après une exécution step by step, il ne rentre jamais dans le else ..

Merci de votre aide !