Copier/coller jusqu'a cellule vide

Bonjour,

Je souhaite executer un copier/coller jusqu'à une cellule vide et changer les données à copier/coller à chaque fois.

Pas tres clair, mais je vous mets un exemple en PJ.

Merci d'avance de votre aide.

Bonsoir,

S'il y a toujours le même nombre de lignes par sociétés, cela devrait être suffisant:

Option Explicit

Sub Ajoutcoordonnées()
Dim i%
Application.ScreenUpdating = False
  For i = 2 To Me.Range("D" & Rows.Count).End(xlUp).Row Step 32
    If Len(Me.Range("D" & i)) = 0 Then Me.Range("A" & i + 1).Resize(31, 3) = Me.Range("A" & i).Resize(1, 3).Value
  Next
End Sub

A mettre dans le module de la sheet 1.

Cdt,

Darzou

Bonjour

Merci, cela fonctionne.

Je vais voir comment optimiser car je dois lancer cette commande tous les mois, et du fait il n'y a pas toujours le meme nombre de lignes.

Si le nombre de lignes diffère...

Option Explicit

Sub Ajoutcoordonnées()
Dim i%, j%
Application.ScreenUpdating = False
  i = 2
  Do
    j = Me.Range("D" & i + 1).End(xlDown).Row
    Me.Range("A" & i + 1).Resize(j - i, 3) = Me.Range("A" & i).Resize(1, 3).Value
    i = j + 1
  Loop While i < Me.Range("D" & Rows.Count).End(xlUp).Row
End Sub

Cdt,

Darzou

Merci beaucoup

Cela m'enlève une épine du pied