voici le code que je viens de compiler:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range, Cellule As Range, i As Long
With Worksheets('feuille de gestion')
Set Plage = .Range('Af3', .Range('Af1191').End(xlUp))
For Each Cellule In Plage
i = Cellule.Row
If .Cells(i, 1).Value = 1 Then
.Range(Cells(i, 2), Cells(i, 7)).Copy
ActiveSheet.Paste Destination:=Worksheets('Réclamation Clients').Cells(7, 4)
End If
Next Cellule
End With
End Sub
la recopie se fait correctement mais je souhaiterais que la recopie recopie se place dans la prochaine cellule vide de la feuille 'reclamation' d'une part.
et d'autre part je souhaterais que si j efface la condition du 1 la recopie s annule.
d'avance merci