VBA modification code

Bonjour, je voudrais que la ligne:Range("C" & num_ligne).Value = c.Value , me copie aussi la forme

Dim Plage As Range, c As Range
Dim num_ligne As Long
Set Plage = Range("A2", Range("A65536").End(xlUp))
num_ligne = 2
For Each c In Plage
If WorksheetFunction.CountIf(Range("B:B"), c.Value) = 0 Then
Range("C" & num_ligne).Value = c.Value
num_ligne = num_ligne + 1
End If
Next c

Merci d'avance

Nonno

re, peut-être avec ceci (dépend si ce sont de formules ou ....) mais cela copie aussi les MFC, couleurs, etc

c.copy Range("C" & num_ligne)

simplification

Dim c As Range
For Each c In Range("A2", Range("A" & rows.count).End(xlUp)).Cells '+65.000=ancien "xls"
     If WorksheetFunction.CountIf(Range("B:B"), c.Value) = 0 Then
          c.Copy c.Offset(, 2)
     End If
Next c

Impeccable

Merci BsAlv

Bonne journéeNonno