Boucle selon une condition

Option Explicit
'----------
Sub incrementer_CD()
Dim Derlig As Integer, Lig As Integer

Application.ScreenUpdating = False
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
For Lig = 1 To Derlig
     Cells(Lig, "C") = Cells(Lig, "C") + ((Cells(Lig, "A") <> "") * (Cells(Lig, "B") = "x")) 
     Cells(Lig, "D") = Cells(Lig, "D") + ((Cells(Lig, "A") <> "") * (Cells(Lig, "B") = "x")) 
Next
End Sub

Sub selection()

Dim selection As Long

For selection = 1 To 30
If Cells(selection, 7) = "x" Then
Cells(selection, 5) = Cells(selection, 5) + 1
Cells(selection, 6) = Cells(selection, 6) + 1

End If

Next


End Sub