Salut à tous
voici mon code :
Private Sub InitTriCodeCompagnie()
ThisWorkbook.Worksheets(FeuilleAll).Activate
cpt = LigPreEcriture - 1
For i = LigPreEcriture To 65536 Step 1
'Permet de sortir de la boucle FOR si la cellule étudiée est vide
If IsEmpty(Cells(i, ColCdCie)) Then Exit For
'Les signe "" sont des erreurs de saisies, ce if permet de les supprimer
If Cells(i, ColCdCie).Value = "" Then
Rows(i).Delete Shift:=xlUp
End If
If Cells(i, ColCdCie).Value = 4 Then
cpt = cpt + 1
Rows(i).Select
Selection.Cut
ThisWorkbook.Worksheets(FeuilleCodeCompagnie4).Activate
Rows(cpt).Select
ActiveSheet.Paste
ThisWorkbook.Worksheets(FeuilleAll).Activate
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub
Le problème est dans la partie en gras impossible de supprimer la ligne !!! Mes colonnes 4 restent dans mon ALL
HELP ME PLEASE 
