Bonjour,

Après plusieurs années d'absence, je reviens sur ce site.

J'ai une vieille question pour laquelle je n'ai pas trouvé de solution.

Voilà la démarche que je fais en manuel dans mon exemple:
en relation: 2 colonnes.
positionné dans la colonne A,
Voici les manip que j'effectue:

F2
Ctrl + Shift + flèche gauche
Ctrl + X
Tab
F2
Ctrl + V
Enter

Je ne trouve pas dans les fonctions basic comment introduire ces actions.

Lorsque j'enregistre la macro, j'obtiens ceci:
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 Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+b
'
    ActiveCell.FormulaR1C1 = "F2"
    With ActiveCell.Characters(Start:=1, Length:=0).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16727809
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=3, Length:=1).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 30
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Column1(CL:?)"
    ActiveCell.Offset(2, -1).Range("A1").Select
End Sub
Comment introduire les commandes en manuel dans le script ?
Des pistes seraient les bienvenues.

Merci pour votre aide et suggestions