Manipulation objet: designer une autre colonne ?

bonsoir yg_be,

je te remercie pour le code . Néanmoins pourquoi le '1' ?
ne serait-ce pas '6' dans mon cas ? Car la plage va de la ligne 6 à la dernière.

J'aimerais comprendre la méthode 'oL.Cells'

je l'ai mis ainsi:

For Each oL In Plage.Rows 'pour chaque ligne de la plage
    If oL.Cells(1, "Q") = Empty Then

mais je n'ai pas le tri que je souhaite.

en supprimant le test j'ai toutes les lignes de plage.
Avec le test j'ai la même chose.
mon code:

Sub ExporteCSV()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, chemin As String, Sep$
    
  chemin = "D:\monfichier.xlsm"    
  Worksheets("Votes").Select
  Sep = ","
  
  'Définie la plage de recherche
  Set Plage = ActiveSheet.Range("B6:C" & ActiveSheet.Range("C65000").End(3).Row)
  
  'Crée dans emplacement nom du fichier CSV
  Open "D:\Votants.csv" For Output As #1
  
  For Each oL In Plage.Rows 'pour chaque ligne de la plage
    If oL.Cells(1, "Q") = Empty Then 'si la colonne "Q" est vide faire sinon changer de ligne
      Tmp = ""
      For Each oC In oL.Cells   'pour chaque colonne de ligne
        Tmp = Tmp & CStr(oC.Text) & Sep
      Next
      Tmp = Left(Tmp, Len(Tmp) - 1) 'supression du dernier séparateur
      Print #1, Tmp         'impression dans le fichier CSV
    End If
  Next
  Close     'ferme le fichier CSV
End Sub

merci yg_be :-)
ca fonctionne!

Bonjour,
Je reviens sur le sujet car je dois écrire un titre dans chaque colonne avant de récupérer les données.
j'ai utilisé :

Print #1, "Numéro de carte"
Print #1, Tag(2); "Numéro de lot"

La première instruction écrit bien sur la 1ere ligne 1ere colonne mais
la deuxième écrit sur la 2e ligne, 1e colonne, au lieu de 1ere ligne ligne et 2e colonne.

Comment puis-je y arriver svp?

bonjour,
le problème c'est qu'il faut que Numéro de Lot soit dans la 2e colonne car se fichier va être traité ensuite donc pas besoin de séparateur mais en plus le texte doit être identique.