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

Mets des " " Au nom de feuil si tu veux que ca marche.....
ThisWorkbook.Worksheets("FeuilleCodeCompagnie4" ).Activate  
ThisWorkbook.Worksheets("FeuilleAll" ).Activate