Bonjour à tous,
 
Alors voilà mon problème . Sur excel/
 
But : lorsque qu un "X" est présent dans la première ligne alors :
        sélectionner toute la colonne>la copier>la coller sur une autre feuille.
 
Le problème : Il bug au niveau de la copie et me bloque mon excel.Le problème provient sans doute de la boucle mais je n'arrive pas à trouver de solution malgrès de longue recherche.  
Merci par avance  
 
Le code :

Sub copierligne()
Range("A1" ).Select ' début de la liste'
Do While ActiveCell <> ""
If ActiveCell = "X" Then
ActiveCell.EntireColumn.Select
Application.CutCopyMode = False
    Selection.Copy  
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(0, 1).Select ' on traite la ligne suivante'
End If
Loop
End Sub

Ne serait-ce pas ActiveCell.Offset(1, 0) au lieu de ActiveCell.Offset(0,1) ?
 
Edit : Ou alors le commentaire est faux "on traite la ligne suivante" et le nom de la fonction ne devrait-il pas être copiercolonne au lieu de copierligne ?
 
Edit 2 : Souvent, au lieu de Do While ActiveCell <> "" on écrit Do Until IsEmpty(ActiveCell), comme c'est le cas sur un exemple de M$ : http://msdn.microsoft.com/en-us/li [...] e.10).aspx

Merci bien, avec until is empty ca ne bug plus.