Erreur de compilation: Attendu : Expression, Copy, destination

Hello,

Comme vous le voyez dans le sujet, une erreur ressort dans ma macro.

Encore une fois, tout fonctionnait avant cela

Voici la partie du code:

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "ALERTE ROUGE"
Sheets(1).Cells(1, 1).EntireRow.Copy
Destination:=Sheets(2).Range("A1"))
c = 2
For l = y To 2 Step -1
        With Sheets(1)
            If client(l, 1).Value Like "FISH" Then
                Sheets(1).Cells(l, 1).EntireRow.Copy _
                Destination:=Sheets(2).Cells(c, 1)
                client(l, 1).EntireRow.Delete
                c = c + 1
            Else
            End If
        End With
    Next l
    If c > 2 Then MsgBox ("Alerte rouge, ce n'est pas un exercice!")
    With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    End With
    If c = 2 Then Sheets(2).Delete
    Application.ScreenUpdating = True

C'est cette partie qui dysfonctionne

Sheets(1).Cells(1, 1).EntireRow.Copy
Destination:=Sheets(2).Range("A1"))

Je ne sais pas si tout est nécéssaire, on ne sait jamais.

Je vous remercie d'avance de votre aide

bonjour,

essaie ceci

Sheets(1).Cells(1, 1).EntireRow.Copy Destination:=Sheets(2).Range("A1"))

ou ceci

Sheets(1).Cells(1, 1).EntireRow.Copy _
Destination:=Sheets(2).Range("A1"))

destination:= étant un paramètre de la méthode .copy et doit donc se trouver sur la même ligne.

Hello,

il manquait effectivement un Underscore

Merci à toi