Déplacer certaines cellules

[devi16]

Bonjour
Je voudrais pouvoir déplacer les cellules qui sont sur la colonne B est qui ont la cellule vide en colonne C vers la colonne A (Exemple RESULTAT.
Et si possible faire comme l'exemple FINAL.
C'est fichier sont des exemple le fichier final fais 3000 Ligne.
Merci de m'aider

 

[Lone-wolf]

Re : Copier les ligne de les cellules actives

Bonjour devi et bienvenue sur XLD

Sans fichier, difficile de t'aider.

 

[devi16]

Re : Copier les ligne de les cellules actives

j'ai ajouté un exemple

 

[Hieu]

Re : Copier les ligne de les cellules actives

Salut,

en faisant une recherche du mot "toto" pour récupérer la ligne. puis en collant cette ligne en a9.

Sub lkjklsj()
lig = Cells.Find(What:="toto", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Row
        
Rows(lig).Copy
Range("A9").Select
ActiveSheet.Paste
        
End Sub

 

[devi16]

Re : Déplacer les cellules

J'ai modifié la discutions pour qu'elle soit plus précise