J'ai fait la macro suivante qui a l'air de bien marcher :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sub Remplace()
For X = 1 To 5000
    If Range("G" & X).Value = "1" Then
    Range("G" & X).Value = "RV1601"
    Else
    If Range("G" & X).Value = "2" Then
    Range("G" & X).Value = "RV1901"
    Else
    If Range("G" & X).Value = "3" Then
    Range("G" & X).Value = "RV2160"
    Else
    If Range("G" & X).Value = "4" Then
    Range("G" & X).Value = "RV2190"
    Else
    If Range("G" & X).Value = "5" Then
    Range("G" & X).Value = "RF112"
    Else
    If Range("G" & X).Value = "6" Then
    Range("G" & X).Value = "RF119"
    Else
    If Range("G" & X).Value = "7" Then
    Range("G" & X).Value = "RF120"
    Else
    If Range("G" & X).Value = "8" Then
    Range("G" & X).Value = "RF121"
    Else
    If Range("G" & X).Value = "9" Then
    Range("G" & X).Value = "RF122"
    Else
    If Range("G" & X).Value = "10" Then
    Range("G" & X).Value = "RF124"
    Else
    If Range("G" & X).Value = "11" Then
    Range("G" & X).Value = "RF125"
    Else
    If Range("G" & X).Value = "12" Then
    Range("G" & X).Value = "RF130"
    Else
    If Range("G" & X).Value = "13" Then
    Range("G" & X).Value = "RF135"
    Else
    If Range("G" & X).Value = "14" Then
    Range("G" & X).Value = "RF150"
    Else
    If Range("G" & X).Value = "15" Then
    Range("G" & X).Value = "RF155"
    Else
    If Range("G" & X).Value = "16" Then
    Range("G" & X).Value = "RF225"
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
Next X
End Sub
Toutefois, je voudrais savoir si il y avait moyen de la simplifier car il me faut en faire environ 60 et c'est un peu long et je pense qu'il doit y avoir plus simple