Coler Ligne si cellule non vide

Bonjour à tous,

Je voudrais copier des lignes en fonction d'une celllule vide ou non vide ie j'ai des cellules dans le colonne A avec des noms des agents; seuls les 4 lignes sous agent1 sont remplies avec des textes et des formules ensuite des noms d'autres agents décalés de 5 lignes.

je veux que si les cellules des noms d'agents sont non vides alors que les 4 lignes sous agent1 soient colées sous les noms des agents.

Veuillez trouver le fichier joint:

Merci§

Bonjour,

A tester :

Sub Test()

    Dim Plage As Range
    Dim PlgCopie As Range
    Dim I As Long

    With ActiveSheet

        Set Plage = .Range(.Cells(13, 1), .Cells(.Rows.Count, 1).End(xlUp))
        Set PlgCopie = .Range(.Cells(9, 1), .Cells(12, .Cells(4, .Columns.Count).End(xlToLeft).Column))

        For I = 1 To Plage.Count Step 5

            If Plage(I).Value <> "" Then

                PlgCopie.Copy .Range(.Cells(Plage(I).Offset(1).Row, 1), _
                .Cells(Plage(I).Offset(1).Row + PlgCopie.Rows.Count, PlgCopie.Column))

            End If

        Next I

    End With

End Sub

Bonjour,

Merci pour le code , je vais l'essayer et vous revenir.

D'ici là, j'ai décidé de changer ses lignes en tableau et de le nommer "essai".

Donc, j'ai eu

Sub test()
Range (" essai).select
selection.Copy
Range("A14).Select
ActiveSheet.Paste
Application. CutCopyMode=False
ActiveCell.FormulaR1C1=""
End Sub

Et ca marche aussi.

Je vais bien relire votre code pour m'inspirer et insérer le décalage nécessaire.

Je ne sais pas encore comment faire mais j'y arriverai.

Merci!