Selectionner une cellule après collage

J'ai cette macro qui fonctionne très bien, je cherche le moyen de sélectionner la cellule A2 dans la feuille ou le collage a été effectué.

Actuellement c'est la dernière colonne collée qui est prise en compte.

Sub CopierColler()
        Application.ScreenUpdating = False
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim nbPoules As Integer
    Dim colDestination As Range
    Dim i As Integer

    Set wsSource = ThisWorkbook.Sheets("Tournoi")
    nbPoules = wsSource.Range("C1").Value

    If nbPoules >= 1 And nbPoules <= 10 Then
    Dim nomFeuille As String
    nomFeuille = nbPoules & IIf(nbPoules = 1, "poule", "poules")
    Set wsDestination = ThisWorkbook.Sheets(nomFeuille)
    Set colDestination = wsDestination.Range("A2")
End If

        For i = 0 To nbPoules - 1
            wsSource.Range("C2").Offset(0, i).Resize(102, 1).Copy
            colDestination.Offset(0, i * 2).PasteSpecial Paste:=xlPasteAll
        Next i
    Application.CutCopyMode = False
            Application.ScreenUpdating = True

End Sub

Merci pour votre aide

Hello,

Ajoute ça à la fin de la macro enfin dans la boucle

wsDestination.Activate
wsDestination.Range("A2").Select

@+

Bonjour BAROUTE78

Merci pour ton aide

je n'arrivais pas à trouver le bon morceau de code.

Bon Dimanche

Hey merci pour le retour,

@+

Rechercher des sujets similaires à "selectionner collage"