je suis bloqué sur la ligne en rouge

merci

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
Dim semaine As String

Private Sub CommandButton1_Click()
semaine = Sheets("saisie").Range("D4")
    Range("C8:D8").Select
    Selection.Copy
    Sheets("1").Select
    
    Columns("A:A").Select
    
    Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
   ' selecion.Offset(0, 2).Select
  '  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   ' :=False, Transpose:=False
    
   ' Sheets("SAISIE").Select
   ' Range("E8:Y8").Select
   ' Selection.Copy
   ' Sheets("1").Select
   ' Selection.Find(What:=semaine, After:=ActiveCell, LookIn:=xlFormulas, _
   ' LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   ' MatchCase:=False, SearchFormat:=False).Activate
  '  selecion.Offset(0, 10).Select
       
   ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    ':=False, Transpose:=False
    'Sheets("SAISIE").Select
       
    
   
MsgBox " Modification effectué "


End Sub