Bonjour a tous,

Je souhaiterais avoir lq macro suivante qui fonctionne pour les lignes que je selectionne. C est un copie colle de certaines cellule de la ligne en question.
La macro suivante fonctionne seulement lorsque je precise le numero de la ligne.

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
Sub Copypaste() 
    For x = 1 To 10000 
 
        If x = ThisWorkbook.Worksheets("sheet1").Cells(2, 11) Then 
            ThisWorkbook.Worksheets("sheet1").Cells(13, 1) = Workbooks("List Of materials").Worksheets("Sheet1").Cells(x, 1) 
            ThisWorkbook.Worksheets("sheet1").Cells(13, 5) = Workbooks("List Of materials").Worksheets("Sheet1").Cells(x, 2) 
            ThisWorkbook.Worksheets("sheet1").Cells(13, 2) = Workbooks("List Of materials").Worksheets("Sheet1").Cells(x, 6) 
            ThisWorkbook.Worksheets("sheet1").Cells(13, 3) = Workbooks("List Of materials").Worksheets("Sheet1").Cells(x, 7) 
            ThisWorkbook.Worksheets("sheet1").Cells(13, 4) = Workbooks("List Of materials").Worksheets("Sheet1").Cells(x, 5) 
            ThisWorkbook.Worksheets("sheet1").Cells(13, 7) = Workbooks("List Of materials").Worksheets("Sheet1").Cells(x, 9) 
            Range("A2:D2").Select 
            ActiveCell.FormulaR1C1 = "NAME OF PERSON REQUESTING WRITE OFF:  "Ced" 
 
            ThisWorkbook.Worksheets("sheet1").Cells(4, 1) = "DATE : " & "" & Date 
 
        End If 
    Next x 
End Sub
Merci a vous par avance,