Microsoft 365 Copier une cellule suite macro sur un tableau externe

Sub Macro1()
    Article = Range("C5") 'on récupère l'article
    Jour = Range("C7") 'on récupère le jour
    
    With Sheets("Récap") 'dans la feuille "Récap"
        Set trouve = .Range("A1:G1").Find(Article, lookat:=xlWhole) 'on cherche l'article dans la plage A1:G1
        If Not trouve Is Nothing Then 'si on le trouve
            col = trouve.Column 'on récupère le numéro de colonne
            .Cells(.Rows.Count, col).End(xlUp).Offset(1, 0) = Jour 'on ajoute le jour sur la première cellule vide de la colonne
        End If
    End With
End Sub