Bonjour,
J'ai un souci. Je veux copier coller une cellule d'une feuille vers une autre feuille sans coller les lignes vides.

Voici mes données
DETAIL
Dossier 151500264,XXXX MICHEL

Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE

Dossier 151500381,CCCC JACQUELINE
Dossier 151500420,PPPPP CLAUDE

Dossier 151500420,PPPPP CLAUDE
Voici Mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub a()
   Sheets("BD").Select
   ActiveCell.EntireColumn.Select
   Selection.Copy
   Sheets("Param").Select
   Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteAll, _
   SkipBlanks:=True, Transpose:=False, Operation:=xlPasteSpecialOperationNone
End Sub
J'utilise bien l'option SkipBlanks:=True de la fonction PasteSpecial
Info : Site Microsoft:
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

SkipBlanks, Facultatif, Variant, True pour que les cellules vides de la plage dans le Presse-papiers ne soient pas collées dans la plage de destination. La valeur par défaut est False.

Et Pourtant les lignes vides sont copiés ?? Comment faire ?

Voici le résultat 
DETAIL
Dossier 151500264,XXXX MICHEL

Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500264,XXXX MICHEL
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE
Dossier 151500380,YYYY CLAUDINE

Dossier 151500381,CCCC JACQUELINE
Dossier 151500420,PPPPP CLAUDE

Dossier 151500420,PPPPP CLAUDE
Je ne comprend pas l'erreur. Merci pour vos réponses.

Cordialement.