Bonjour,
J'ai essayé (et allégé) votre macro ParOutils() à laquelle vous avez assigné un raccourci clavier (Ctrl + Maj + T)
Il suffit de faire ctrl + shift + T pour que la macro se déroule
Code:
Sub ParOutils()
'
' ParOutils Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+T
Sheets("Par Caractéristique").Range("A1").CurrentRegion.Copy
With Sheets("Par Outil")
.Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
.Columns.AutoFit
.Columns(2).ColumnWidth = 60
End With
End Sub
Vous n'êtes pas obligé de sélectionner les feuilles, les cellules etc. pour agir dessus