Déjà, ces lignes ne servent à rien
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("21)Contrôle").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Ensuite, tu peux remplacer ça
Sheets("1)Dressage").Select
Range("D8 : D16").Select
Selection.Copy
par
Sheets("1)Dressage").Range("D8:D16").Copy
Les lignes suivantes
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("21)Contrôle").Select
Range("B10").Select
ActiveSheet.Paste
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Peuvent être remplacées par
1 2
| Sheets("21)Contrôle").Range("B10").Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True |
Ensuite, tu peux remplacer
Range("B11:B19").Select
Application.CutCopyMode = False
Selection.ClearContents
par
Range("B11:B19").ClearContents
Après, je ne comprends pas ce que tu veux faire. Supprimer le quadrillage, ok, mais sur quelles cellules ? Et que vient faire ce "Range("B18").Activate" ?
Enfin, pour répondre à
J'aimerai que la case selectionner pour collez soit la derniere case non utilisé??
... il serait temps que tu te poses la question
Regarde là, tu as différentes syntaxes. Lis bien les explications, les cas d'utilisation diffèrent vraiment.
Partager