Zone de sélection lignes VB

Désolé j'ai oublié de te répndre je m'étais poser un problème alors qu'il n'avait pas lie d'être je te remercie de ton aide!

J'ai toujour pas compris ce que tu veux faire mais si tu dois sélectionner toutes les lignes avec "Test" ...

Sub TR()
Dim Lig As Long
Dim List As String
    For Lig = 3 To Range("C65536").End(xlUp).Row
        If Cells(Lig, 3) = "Test" Then
            If List <> "" Then List = List & ","
            List = List & Lig & ":" & Lig
        End If
    Next Lig
    Range(List).Select
    Selection.Copy
    Sheets("feuil2").Select
    Rows("3").Select
    ActiveSheet.Paste
End Sub

Et je ne pense pas que faire un tri sur des lignes discontinues soit possible.
A+

Bonjour,

En faite il s'agit de sélectionner les lignes pour effectuer un tri.

Voici la structure de code actuel qui ne permet de sélectionner q'une ligne:
Dim Lig As Long
Dim Col As String

Dim NbrLig As Long
Dim NumLig As Long
Dim Plage As Range
NumLig = 0
Col = "C" '
For Lig = 1 To NbrLig
If .Cells(Lig,Col).Value='"test"
.Cells(Lig,Col).EntireRow.Select
End If
Selection.Sort Key1:=Columns("S"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=7, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Merci de ton aide et bonne journée

Bonjour,
-Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
Et en faire quoi ?
A+