Pb de copier coller après suppression de colonnes

Bonsoir à tous,

Après recherche, je n'ai pas trouvé réponse à mon problème dans le forum.

J'ai un souci sur le copier coller plage de cellule (aller-retour) entrecoupé par une procédure destinée à vider les colonnes vides :

Les 3 procédures se déroulent dans cet ordre et je pense que le pb vient de la N°2 (suppression colonnes vides) mais je ne trouve pas le pourquoi?

Si l'un d'entre vous peut me venir en aide, je l'en remercie vivement.

Cordialement

Sub deplacer() ' [b]N°1[/b]
 Range("B1:AF1").Select
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=57
    Range("BQ1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B1:AF1").Select
    Application.CutCopyMode = False
    Selection.Clear
    Range("A1").Select
End Sub

Sub sup_col_vides() ' [b]N°2[/b]
Dim v
For v = 256 To 1 Step -1
If Cells(65536, v).End(xlUp).Row = 1 Then Cells(1, v).EntireColumn.Delete
Next v
End Sub

Sub replacer() ' [b]N°3[/b]
 ActiveWindow.SmallScroll ToRight:=54
    Range("BQ1:CU1").Select
    Selection.Copy

    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("BQ1:CU1").Select
    Application.CutCopyMode = False
    Selection.ClearContents

    Range("A1").Select
End Sub

Bonjour,

Il va être difficile de t'aider car ton code ne pose pas de problème particulier (aucune erreur apparente).

Il serait utile que tu expliques un peu mieux quelles sont les anomalies constatées et quel est le but du traitement réalisé.

Un fichier exemple ne sera pas de trop.

A+

Bonjour à tous et merci à Frangy de s'être penché sur le pb. En fait, il venait de la sélection de la plage "BQ1:CU1" qui avait changé après la suppression des colonnes vides en "AJ1:BN.

Pour être tout à fait exhaustif, je colle non plus en ligne1 mais en ligne2 car en ligne1, les données sont détruites après suppression des colonnes vides sans que je comprenne vraiment pourquoi??? Et j'ai placé l'appel de la procédure replacer tout à la fin de mon programme. Et ça marche enfin!

Désolé de vous avoir encombré avec cette évidence de débutant que je suis et qui pourtant m'a vraiment pris la tête.

En espérant toutefois que ce détail puisse servir un jour à quelqu'un.

Merci à vous pour votre soutien, j'en aurais sûrement besoin.

Bonne journée

Cordialement