Copier/Coller une ligne sur autre feuille sous condition

[GABASTON]

Bonjour à tous et merci pour vos futures réponses qui j'espère va pouvoir me débloquer.

Voila j'ai copier un code, via un post, qui me permet de copier coller mes lignes de la feuille "SAISIE" vers des feuilles correspondantes a mes conditions, par contre je ne peux pas travailler sur depuis ses feuilles
Voici le code:

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim DerLig As Integer, i As Integer, DerLig_Bis As Integer

Application.ScreenUpdating = False

If ActiveSheet.Name <> "SAISIE" Then
Rows("5:" & Rows.Count).Delete
DerLig = Sheets("SAISIE").Range("B" & Rows.Count).End(xlUp).Row
DerLig = Sheets("SAISIE").Range("C" & Rows.Count).End(xlUp).Row

For i = 5 To DerLig
If Sheets("SAISIE").Range("B" & i) = ActiveSheet.Name Then
DerLig_Bis = Application.WorksheetFunction.Max(5, Range("B" & Rows.Count).End(xlUp).Row + 1)
Sheets("SAISIE").Range("A" & i & ":I" & i).Copy Destination:=Range("A" & DerLig_Bis)
End If

If Sheets("SAISIE").Range("C" & i) = ActiveSheet.Name Then
DerLig_Bis = Application.WorksheetFunction.Max(5, Range("C" & Rows.Count).End(xlUp).Row + 1)
Sheets("SAISIE").Range("A" & i & ":I" & i).Copy Destination:=Range("A" & DerLig_Bis)
End If

Next i
End If

End Sub


il y a quelque chose dans ce code qui verrouille mes feuilles

quelqu'un peut il m'aider

merci

Titi

 

[drul]

Ta feuille saisie est elle verrouiller ?
La fonction copy copie tout, c'est peut-être la base de ton problème ...