Bonjour j'ai tappé du code. Seulement celui ci ne fonctionne pas et quand j'utilise le pas a pas détaillé il ne lit pas toute les lignes de code.

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
17
18
19
20
21
22
23
24
25
26
27
Sub tt()
 
For i = 2 To i = 38
 
If Cells(i, 1).Value = "12 / 4 / 2012" Then
 
If Cells(i, 2).Value = "Fille" Then
 
If Cells(i, 3).Value = "Blonde" Then
 
Cells(i, 5).Value = "oki"
 
End If
End If
End If
 
 
 
Next
 
 
 
Merci
 
 
 
End Sub