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