Private Sub calcul()
Dim Plage As Range, ligne As Long
Plage = Range("B4", Range("B" & Rows.Count).End(xlUp)) 'B4 correspond à la première donnée numérique de la ligne juste en dessous de l'intitulé texte de la colonne C
For Each cell In Plage
If cell(ligne, 2).Value = 2 Then
Cells(ligne, 4).Value = Cells(ligne, 3).Value + 170
End If
ligne = ligne + 1
Next