Bonjour

Je souhaite faire une recherche dans un répertoire en fonction de la valeur d'une cellule, par exemple, si la valeur de la cellule C5 est présente dans le répertoire alors G5 = "OUI" sinon G5=""
Voila ce que j'ai fait, ça fonctionne pour une cellule en particulier mais je n'arrive pas à l’incrémenter pour toutes les cellules de la feuille:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub AUDIT()
Dim i As Integer
For i = 1 To 20
If Dir("C:/Documents") = Cells(i, 2) Then
  Cells(i, 7) = ""
Else
  Cells(i, 7) = "OUI"
End If
Next
End Sub
Merci d'avance

Jérémy