Bonjour,
il avait longtemps que je ne t'ai pas embêter mais cette semaine j'étais surcharger de travail .j' ai bien appliquer ta macro pour le tableau ,celle avec le bouton marche trés bien , mais j' ai appliquer l autre , cela ne fonctionne pas du tout je te transmet donc la macro que j' ai appliquer dans la feuil1 et clic droit visualiser macro , j' ai surement fait une gourde en recopiant peut tu m 'aider à éclaircir mon erreur , je me fais vraiment passer pour une nul.Merci d 'avance.
Voici tel que j' ai la macro sur le clic droit .Est ce que c' est que je n'est pas de nom de macro quelle marche pas?




Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
If Target.Columns.Count > 1 Or Target.Column <> 8 Then Exit Sub
If Target = "ec" Then Range("B25").Select
Col = "J"
LigFin = [A65536].End(xlUp).Row + 1
NumLig = 1
With ActiveSheet
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "ec" Then
.Cells(Lig + 1, Col).EntireRow.Insert
[L3:M3].Copy
Range([L3], [M65536].End(xlUp).Offset(2, 0)).PasteSpecial Paste:=xlPasteFormulas
.Cells(Lig, Col).Value = ""
.Cells(Lig, Col).Interior.ColorIndex = 4
.Cells(Lig, Col).Offset(0, -9).Select
End If
Next
End With
Range(ActiveCell, ActiveCell.Offset(0, 7)).Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
End Sub