Bonjour,

voici mon 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
Sheets("bidule").Select
 
For i = 7 To NbLigne1
For j = 1 To 6
 
If Cells(i, j) = "" Then
e = e + 1
Cells(i, j).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
End If
Next j
Next i
J'ai ce code la qui apparait Erreur d'exécution '13' : Incompatibilité de type