VBA copier vers une autre feuille à partir première ligne vide

Bonjour le forum

Fichier joint

Merci d'avance

Nonno

Bonjour,

Quid de ce fil VBA Copier coller vers autre feuille selon critère

Bonjour

Toujours rien pour : "VBA copier vers autre feuille à partir première ligne vide"

re,

un TS déteste des lignes vides

Sub CopieColle()
     With Range("tableau1").ListObject
          If .ListRows.Count = 0 Then MsgBox "vide": Exit Sub
          arr = .DataBodyRange.Value2
     End With
     Range("Tableau2").ListObject.ListRows.Add.Range.Resize(UBound(arr), UBound(arr, 2)).Value = arr
End Sub

Merci Bart

J'ai compris pas de ligne vide

Merci encore

Nonno

dans votre exemple la dernière ligne du tableau2 était vide

oui merci, j'ai corrigé.

Bonne soirée

Cordialement

Nonno