Voilà ma sélection:
Columns("R:R").Select
Selection.Copy
Range("W1").Select
Selection.Insert Shift:=xlToRight
Range("W1").Select
Application.CutCopyMode = False
...
Voilà ma sélection:
Columns("R:R").Select
Selection.Copy
Range("W1").Select
Selection.Insert Shift:=xlToRight
Range("W1").Select
Application.CutCopyMode = False
...
Bonjour à tous,
Je cherche à optimiser la ligne ci-dessous:
Selection.Replace What:="46", Replacement:="Pilote", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.