Copier / coller une cellele sous condition

Bonjour Mes amis, en fait je veux créer un Macro qui fait Copier / Coller pour des cellules sous condition dans une autre feuille d'excel

Je veux afficher sur la feuil2 que les Nom client qui ont un croix "x"

Merci d'avance

Voilà ci-joint un exemple de fichier excel

Bonsoir,

Sub Test()
    Dim CliS(), n%, i%, j%
    With Worksheets("Sheet1")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        ReDim CliS(1 To n)
        For i = 2 To n
            If .Cells(i, 2) = "x" Then
                j = j + 1: CliS(j) = .Cells(i, 1)
            End If
        Next i
    End With
    ReDim Preserve CliS(1 To j)
    Worksheets("Sheet2").Range("A2").Resize(j).Value = WorksheetFunction.Transpose(CliS)
End Sub

Cordialement.

Merci beaucoup Mr Ferrand parfait ça marche très bien

Merci beaucoup

Re bonjour Ferrand

dis moi comment t'as crée le bouton Test parce que je fais la démarche de création et ça marche pas chez moi

tu peux me dire s'il te plait la démarche

Merci d'avance

Onglet Développeur > Insérer, là il s'agit d'un bouton de formulaire.