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 : Sélectionner tout - Visualiser dans une fenêtre à part
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")