Sub new_Click()
Dim r As Range
For Each r In Range("F2:F" & Range("F2").CurrentRegion.Rows.Count)
If r.Offset(0, 25).Value = "" Then r.Offset(0, 25).FormulaR1C1 = _
"=IF(AND(RC[-23]=""agence"",OR(RC[-25]=""inter"",RC[-25]=""t/s"",RC[-25]=""liens"",RC[-25]=""cdr"")),""wwww"","""")"
If r.Offset(0, 26).Value = "" Then r.Offset(0, 26).FormulaR1C1 = _
"=IF(AND(RC[-24]=""agence"",OR(RC[-26]=""inter"",RC[-26]=""t/s"",RC[-26]=""liens"")),""wwww"","""")"
If r.Offset(0, 27).Value = "" Then r.Offset(0, 27).FormulaR1C1 = _
"=IF(AND(RC[-25]=""agence"",OR(RC[-27]=""inter"",RC[-27]=""t/s"",RC[-27]=""brun"",RC[-27]=""cdr"")),""wwww"","""")"
If r.Offset(0, 28).Value = "" Then r.Offset(0, 28).FormulaR1C1 = _
"=IF(AND(RC[-26]=""agence"",OR(RC[-28]=""inter"",RC[-25]=""t/s"",RC[-25]=""brun"",RC[-25]=""cdr"")),""wwww"","""")"
If r.Offset(0, 29).Value = "" Then r.Offset(0, 29).FormulaR1C1 = _
"=IF(AND(RC[-27]=""agence"",OR(RC[-29]=""brun"",RC[-25]=""liens"",RC[-25]=""cdr"")),""wwww"","""")"
If r.Offset(0, 30).Value = "" Then r.Offset(0, 30).FormulaR1C1 = _
"=IF(AND(RC[-28]=""agence"",OR(RC[-30]=""brun"",RC[-25]=""cdr"")),""wwww"","""")"
If r.Offset(0, 31).Value = "" Then r.Offset(0, 31).FormulaR1C1 = _
"=IF(AND(RC[-29]=""agence"",OR(RC[-31]=""brun"",RC[-31]=""cdr"")),""wwww"","""")"
If r.Offset(0, 32).Value = "" Then r.Offset(0, 32).FormulaR1C1 = _
"=IF(AND(RC[-30]=""agence"",OR(RC[-32]=""inter"",RC[-32]=""t/s"",RC[-32]=""brun"",RC[-32]=""cdr"")),""wwww"","""")"
If r.Offset(0, 33).Value = "" Then r.Offset(0, 33).FormulaR1C1 = _
"=IF(AND(RC[-31]=""agence"",OR(RC[-33]=""brun"",RC[-33]=""cdr"")),""wwww"","""")"
Next r
End Sub