Private Sub Essai()
derlig2 = Sheets(2).Range("A65536").End(xlUp).Row
For i = 2 To derlig2
Sheets(1).Cells(i, 1).Value = Sheets(2).Cells(i + 7, 1).Value
Next i
derlig = Sheets(1).Range("A65536").End(xlUp).Row
Col = Right(Sheets(2).Cells(4, 1), 2) + 1
For i = 2 To derlig
Sheets(1).Cells(i, Col).Value = Sheets(2).Cells(i + 7, 6).Value
Next i
End Sub