Bonjour
J'utilise une macro qui me permet de couper des cellules de la feuille 1 vers la feuille 3 .
1. Feuille 1 et feuille 3 --> Cela correspond à quelle feuille ? Suivi relances et archive relances ?
2. Pourquoi partez vous de la ligne 2 dans le code test ?
3. Vous avez plusieurs fois le même code dans des modules différents. Pourquoi ?
Edit : Essayez ceci plutôt
Sub test(Sh As Worksheet)
Dim i As Long, L As Long
Application.ScreenUpdating = 0
For i = 5 To Sh.Range("A" & Rows.Count).End(xlUp).Row
If Sh.Cells(i, 12) = "Clôture" Then
L = Feuil4.Range("A" & Rows.Count).End(xlUp).Row + 1
Sh.Cells(i, 1).Resize(, 11).Copy Feuil4.Cells(L, 1)
Sh.Rows(i).Delete
i = i - 1
End If
Next
Application.ScreenUpdating = 1
End Sub
NB : Vous pourriez tout faire avec un seul code