Copie de cellules

Sub Macro3()
    Jour = Range("B1").Value
    Client = Range("B2").Value
    N°Fact = Range("B4").Value
Set Sh = Sheets(Feuil2.Name)
    Passe = True
   With Sh
      For L = 2 To .Range("A" & Rows.Count).End(xlUp).Row
         If .Range("C" & L).Value = N°Fact Then
            Passe = False
            Exit For
         End If
      Next
      If Passe = True Then
         Lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
            .Range("A" & Lig).Value = Jour
            .Range("B" & Lig).Value = Client
            .Range("C" & Lig).Value = N°Fact
      End If
   End With
End Sub