Bonjour à tous

Est-il-possible de lancer une macro en activant une cellulle de la colonne A , cellule qui selectionnera les données de sa ligne (par exemple si je selectionne la cellule A41 ,ma macro va prendre les données de la ligne 41)et les collera dans des cellulles designées dans feuill 2 J'ai écris un code qui ne marche pas trop

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
Sub Macro15()
 
    Sheets("recap sinistres").Select
    For i = 2 To 100
    If Cells(i, 1).Activate Then
    Range("A" & i).Select
    Selection.Copy
    Sheets("document").Select
    Range("D1,c10").Select
    ActiveSheet.Paste
    Sheets("recap sinistres").Select
    Range("B" & i).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("document").Select
    Range("B13").Select
    ActiveSheet.Paste
    Sheets("recap sinistres").Select
    Range("C" & i).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("document").Select
    Range("B15").Select
    ActiveSheet.Paste
    Exit For
    End If
    Next i
    End Sub