Bouton mise à jour d'un feuille en VBA

Sub Macro1()
Dim Lig As Long
Sheets("Recap_Annuaire").Cells.Clear
With Sheets("Annuaire1")
    Lig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A1:D" & Lig).Copy Sheets("Recap_Annuaire").Range("A1")
End With
With Sheets("Annuaire2")
    Lig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A2:D" & Lig).Copy Sheets("Recap_Annuaire").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
End Sub

Sub Macro1()
Dim Lig As Long
Sheets("Recap_Annuaire").Cells.Clear
For i = 1 To Sheets.Count
    If Sheets(i).Name Like ("Annuaire*") Then
        With Sheets(i)
            Lig = .Cells(Rows.Count, 1).End(xlUp).Row
            .Range("A2:D" & Lig).Copy Sheets("Recap_Annuaire").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End With
    End If
Next i
Sheets("Annuaire1").Range("A1:D1").Copy Sheets("Recap_annuaire").Range("A1")
End Sub

Sub a()
Dim s As Worksheet
Sheets("Recap_Annuaire").Range("A2:D65536").Clear
For Each s In Worksheets
If Not s.Name Like "Recap_*" Then
s.Range("A1").CurrentRegion.Offset(1).Copy Sheets("Recap_Annuaire").[A65536].End(xlUp)(2)
End If
Next s
End Sub