Re,
D'accord. Maintenant j'ai ça :
Dim i, compteur As Integer
For i = 6 To 42
If Cells(6, i) <> "" Then
compteur = compteur + 1
If compteur = 10 Then
Cells(6, 69) = 2
End If
End If
Next i
Plus d'erreur mais par contre il ne rentre pas dans le if pour compter le nombre de cellule non vide.
Cdlt.