Kael_88
XLDnaute Occasionnel
Le forum,
Après plusieurs recherche non fructueuse, je me tourne vers vous.
Serait-il possible de simplifier ce code ?
Cordialement
Après plusieurs recherche non fructueuse, je me tourne vers vous.
Serait-il possible de simplifier ce code ?
VB:
Dim C As Range, G As Range, Rng As Range, Derl As Long
Set Rng = Range("C2", Range("C65000").End(xlUp)) '.Select Colonne C
Set Rng1 = Range("G2", Range("G65000").End(xlUp)) '.Select Colonne G
Derl = Rng.Rows.Count + 1
'Ajout valeur dans Colonne D par rapport à Colonne C
For Each C In Rng
C.Offset(, 1).Value = "*Ter " & C.Value & "*"
Next
'Ajout valeur dans Colonne H par rapport à Colonne G
For Each G In Rng1
G.Offset(, 1).Value = "*" & G.Value & " Ni*"
Next
Cordialement