Bonjour @Xtoph@, Eric, re DJ-Run et le Forum.
Très pratique ta macro Eric , bien vu !! D'ailleurs je la colle ici pour qu'elle soit bien vue car c'est simple propre et efficace!!! :
Private Sub CommandButton1_Click()
For i = 3 To Range("a65000").End(xlUp).Row
With Worksheets(Range("a" & i).Text)
.Range("a65000").End(xlUp).Offset(1, 0) = Range("a" & i)
.Range("b65000").End(xlUp).Offset(1, 0) = Range("b" & i)
.Range("c65000").End(xlUp).Offset(1, 0) = Range("c" & i)
End With
Next i
End Sub
Pour ton problème @Xtof c'est sûrement dû au Cut... (Doit faire un espèce de même plan qu'avec EntireRow.Delete).... Enfin c'est pas grave vu que DJ le voulait en copie...
Du coup j'ai un peu repris ton code, (un chti peu !!) dans la démo ci-jointe.... (plus de SelectSelectSelectSelectSelect !!!)
Et puis j'ai ajouté une option interressante (je pense...)
En attendant de vos nouvelles
Je vais m'acheter à manger...
Bon App
@+Thierry
PS pour Eric ....
ZIPPONS...ZIPPONS...ZIPPONS...ZIPPONS...!!! :-))