Private Sub btnMAJ_Click()
Dim r As Range
For Each r In Range("F2").CurrentRegion.Rows.Count
'Pour la colonne AE
If r.Offset(0, 23).Value = "" Then r.Offset(0, 23).FormulaR1C1 = _
"=IF(AND(RC[-23]=""agence"",OR(RC[-25]=""Inter"",RC[-25]=""t/s"",RC[-25]=""liens"",RC[-25]=""cdr"")),""wwww"","""")"
'De même pour la colonne AF
' If r.Offset(0,24).value = "" Then r.Ofsset(0,24).FormulaR1C1 = ...
'etc...
Next r
End Sub