Bonsoir,
si la ligne est considérée comme vide lorsqu'au moins une cellule est vide alors vous pouvez faire un test que la colonne B et vérifier s'il y a une donnée ou pas :
For i = 3 To NbLig
If .Cells(i, 2).Value = "" Then
MaDate = .Cells(i, 1)
.Cells(i, 2) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "CC", Feuil1.Columns(3), MaDate) + Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(4), "DD", Feuil1.Columns(3), MaDate)
.Cells(i, 3) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "ACC", Feuil1.Columns(3), MaDate)
.Cells(i, 4) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "CC", Feuil1.Columns(6), MaDate) + Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(4), "DD", Feuil1.Columns(6), MaDate)
.Cells(i, 5) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "ACC", Feuil1.Columns(6), MaDate)
End If
Next i
S'il n'y a pas de donnée on lance la recherche sinon on passe à la ligne suivante.
@ bientôt
LouReeD