Bonsoir à toutes et à tous,

Juste un petit souci avec le bout de code suivant......qui me détecte une série de valeurs en fonction de la reconnaissance d'une valeur en colonne T......j'aimerais y planter un paste special value pour rapatrier les valeurs seulement plutôt que les formules.....où me conseilleriez vous de l'y inclure ?

Merci !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub test()
For Each cel In Range("t6:t56")
If UCase(cel) = "SC" Then
Range("t" & cel.Row & ":x" & cel.Row).Copy _
    Sheets("TEST1").Range("A" & Sheets("TEST1").Range("A65536").End(xlUp).Row + 1)
End If
Next
End Sub