[XL-2010] simplification macro 2010

simplification macro 2010

Bonjour,
La macro ci-dessous fonctionne mais je dois écriture plus de 300 lignes
Est-ce que quelqu'un a une idée pour la simplifier ?

Je vous remercie par avance

Bonne soriée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    If Range("AE13") = Range("C4") Then Range("S13") = Range("A2")
    If Range("AE14") = Range("C4") Then Range("S14") = Range("A2")
    If Range("AE15") = Range("C4") Then Range("S15") = Range("A2")
    If Range("AE16") = Range("C4") Then Range("S16") = Range("A2")
    If Range("AE17") = Range("C4") Then Range("S17") = Range("A2")
    If Range("AE18") = Range("C4") Then Range("S18") = Range("A2")
    If Range("AE19") = Range("C4") Then Range("S19") = Range("A2")
    If Range("AE20") = Range("C4") Then Range("S20") = Range("A2")
    If Range("AE21") = Range("C4") Then Range("S21") = Range("A2")
    If Range("AE22") = Range("C4") Then Range("S22") = Range("A2")
    If Range("AE23") = Range("C4") Then Range("S23") = Range("A2")
    If Range("AE24") = Range("C4") Then Range("S24") = Range("A2")

Bonsoir raid14,

Avec ça ?

Code:

1
2
3
4
Dim i As Integer
For i =13 to 24
   If Range("AE"&i) = Range("C4") Then Range("S"&i) = Range("A2")
Next

Bertrand

:ccool:

Super merci