Transposer une sélection dans un tableau et effacer mise en forme

Bonjour.

Dans le tableau joint, je cherche à automatiser la transposition d'une sélection de 2 cellules côte à côte d'un des atelier dans le tableau (en jaune clair) pour les copier dans une autre partie du tableau "OF sortis d'atelier" (en dessus de R7:S7)

et supprimer la mise en forme de la sélection d'origine.

J'ai pensé passer par des noms de cellules mais le résultat n'y est pas ; références relatives??? Je ne maîtrise pas assez....

Voilà ce que j'ai tenté :

Sub Finis()
'
' coupe Réf et n°commande + colle "terminés"
'
ActiveSheet.Unprotect
ActiveWorkbook.Names.Add Name:="Fini", RefersToR1C1:= _
"=Planning!R24C14:R24C15"
Selection.Copy
Range("R7:S7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="Fini"
Application.CutCopyMode = False
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("Q7").Select
ActiveWorkbook.Names("Fini").Delete
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
ActiveWorkbook.Save
End Sub

Tout fonctionne sauf la suppression contenu et mise en forme qui ne se fait pas...

Merci pour vos éclairages

Edit Modo : Je pense que vous n'avez pas encore lu la charte. Si vous postez un code, pensez à --> Pour plus de lisibilité, utilisez le bouton </> pour insérer vos codes VBA

Bonjour,

C'est pas fameux hein. Alors j'ai retouché un minimum. Juste enlevé ce qui servait à rien. C'est à dire le nom créé que tu ne maîtrises pas Et le Q7.Select qui ne sert à rien car dans une feuille protégée tu ne peux sélecter une cellule protégée.

Le code modifié :

Sub Finis()
Dim Source As Range
Set Source = Selection
    ActiveSheet.Unprotect
    Source.Copy
    Range("R7:S7").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Source.Clear
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
    ActiveWorkbook.Save
End Sub

A+