Copier coller onglet synthèse

Bonjour,

Je sais que le sujet est traité plusieurs fois mais je n'arrive pas à l'appliquer a mon cas simple n'étant pas une AS des macros.

Je souhaite copier collier tous les onglets dans l'onglet synthèse. 2 onglets en ex mais il y en aura d'autres. Chaque onglet est identique. Il faut copier chaque ligne.

D'avance merci pour votre aide

bonjour,

Le problème n'est pas vraiment de Copier/Coller des données ce qui est enfantin, mais plutôt de savoir ce qu'on doit coller. Une fois que c'est collé une fois, je suppose que vous ne souhaitez pas coller une deuxième fois ?

Que faire des feuilles déjà copiées ? on peut les supprimer ?

Une solution provisoire:

A+

Bonjour,

Alors copier coller les donner dans un autre onglet à la suite. il faut garder les autres onglets. Après quand je relance le copier coller je peux très bien vider l'onglet synthèse pour recopier les données.

Merci pour votre aide

Donc rien à changer, juste faire un RAZ juste avant :

Sub Galopin()
Dim iLR&, Ws As Worksheet, rng As Range, Arr
RAZ
For Each Ws In Worksheets
    If Ws.CodeName <> "WsR" Then
        iLR = WsR.[A1].CurrentRegion.Rows.Count + 1
        Set rng = Ws.[A4].CurrentRegion
        With rng
            On Error Resume Next
            Set rng = .Offset(1).Resize(.Rows.Count - 1)
        End With
        Arr = rng.Value
        WsR.Cells(iLR, 1).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    End If
Next
End Sub
Sub RAZ()
Dim rng
Set rng = [A1].CurrentRegion
rng.Offset(1).Resize(rng.Rows.Count - 1).Delete
End Sub

A+