msg box pour confirmation déplacé ligne

Re: Re : msg box pour confirmation déplacé ligne

Bonjour carcharodon-carcharias
merci à toi pour ta réponse et désolé pour le temps de réponse, il n'y a que le soir ou je suis dispo.
j'ai testé la macro et j'ai le message suivant: "erreur de compilation; référence incorrecte ou non qualifiée"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adresse$, x&, c As Range, Reponse
If Target.Count > 1 Or Target.Row < 4 Then Exit Sub
Reponse = MsgBox("Effectuer l'action ?", vbYesNo, "Des lignes doivent être déplacées !")
If Reponse = 6 Then
x = Target.Row
Set c = Range("A" & x & ":O" & x)
Select Case Target.Column
Case 1
adresse = .End(xlUp).Address(1, 1) ' .END(xlup) est surligné
If Target.Address = adresse Then
Application.EnableEvents = False
c.Copy Target.Offset(1)
c.Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
Application.EnableEvents = True
End If
Case 15
If LCase(Target) = "cloturé" Then
c.Copy Feuil1.Range("A65000").End(xlUp).Offset(1)
Rows(x).Delete
End If
End Select
End If
If Reponse = 7 Then Exit Sub
End Sub

voila merci pour ton aide j'essaie depuis plusieurs semaines de me former et comprendre le VBA
cordialement
mix770