Sub actu_N1_activité()
Dim zone As Range
Dim lig As Long
Dim C As Range
With Sheets("Activité")
Set zone = .Range("G2:R" & .Range("D1").End(xlDown).Row) '.Range(..; Sinon il n'est pas utilisé avec la feuille Activité mais avec la feuille active
End With
For Each C In zone
lig = C.Row
If Cells(lig, "C").Value = "N-1" Then
If Cells(lig, "D").Value = "Journées" Then
C.Value = "Ma formule"
'Else 'Else veux dire sinon, comme sinon rien, alors c'est inutile
End If
'Else 'Même chose
End If
Next
End Sub