Bonjour à tous,
Ne trouvant pas de solution à mon problème, j’espère trouver de l’aide sur le forum.
J'utilise une macro sous Excel 2000+SP3, qui semble relativement simple (ci-dessous), et qui copie un ensemble de ligne d'une feuille vers une autre selon un critère sur une colonne de la première feuille.
Le grand mystère, c'est que cette macro fonctionne une fois sur deux ou trois !!! J'ai toujours le même message d'erreur à la ligne "ActiveSheet.Paste" :
Erreur d'exécution '1004' : La méthode Paste de la classe Worksheet a échoué.
Merci pour votre aide.
Sub Closed_Tlsfals()
ActiveWorkbook.Unprotect Password:="vb"
Dim k, l As Integer
l = 19
For k = 16 To 496
Sheets("TLS FALS WAVE 1").Select
ActiveSheet.Unprotect Password:="vb"
If Cells(k, 9).Value = "Closed" Then
Range(Cells(k, 2), Cells(l, 31)).Select
Selection.Copy
Sheets("Closed").Select
ActiveSheet.Unprotect Password:="vb"
ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
ActiveCell = " "
ActiveCell.Offset(1, 0).Select
ActiveCell = " "
ActiveCell.Offset(1, 0).Select
ActiveCell = " "
Sheets("TLS FALS WAVE 1").Select
Selection.Delete Shift:=xlUp
k = k - 4
l = l - 4
End If
k = k + 3
l = l + 4
Next k
Sheets("TLS FALS WAVE 1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="vb"
Sheets("Closed").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="vb"
ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="vb"
End Sub