Bonjour tout le monde,

J ai bricole cette macro tout l apres midi qui semble fonctionne mais j obtiens quand meme une erreur 400 lorsque je la lance

Pourriez vous m aider a y jetter un oeil? Un grand merci,

^^

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Canoirode()
 
    Dim Ws As Variant
    Dim NxtRw As Long
    Dim UsdRws As Long
 
 For Each Ws In Worksheets
        If Not Ws.Name = "Global" Then
            NxtRw = Sheets("Global").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
            UsdRws = Ws.Range("A3").End(xlDown).Row
            Ws.Range("A3:F" & UsdRws).Copy Sheets("Global").Range("A" & NxtRw)
            Ws.Range("G3:K" & UsdRws).Copy Sheets("Global").Range("G" & NxtRw)
        End If
    Next Ws
 
End Sub