Sélection de plusieurs cellules discontinues

Bonjour à tous,

est-il possible de sélectionner plusieurs cellules discontinues au moyen de l'objet Range ?

Mon but est le suivant : je veux copier-coller une sélection de cellules non adjacentes et les coller dans une autre feuille.

Je n'arrive pas à faire une sélection des cellules discontinues. Par exemple C1, F1, H1 et J1.

Ma sélection est intégrée dans une boucle et la ligne est variable. Soit par exemple "C" & i

Je vous remercie d'avance pour votre aide et vos explications!

Dim cell As Range
Dim i As Byte
Dim Lastrow As Long
Dim Nextrow As Long

i = 2

Lastrow = ShDetails.Cells(Rows.Count, 1).End(xlUp).Row

For Each cell In Range("R2", "R" & Lastrow)
Nextrow = Shoverview.Cells(Rows.Count, 1).End(xlUp).Row + 1
If Cells(i, 14).Value <> "" Then
cell.Value = "=NETWORKDAYS(Tableau_Pivot[@Transmise], TODAY())"

If cell.Value > 5 Then
Range("C" & i, "F" & i, "H' &i, "J" & i).Copy Shoverview.Range("A" & Nextrow)
Else: cell.Value = "0"
End If
Else: cell.Value = "0"
End If

Bonjour Xilithe,

La copie de cellules discontinues est possible.

Mais il faut le faire cellule par cellule.

Les cellules à copier peuvent être dans un tableau. Exemple Rg = "A5" ou Rg = "A" & i. Etc...

Puis Range(Rg).Copy vers cellule de destination.

Sinon cela prend une aire (plusieurs cellules copiées) formée par la cellule d'origine jusqu'à la cellule de fin.

Mais ici dans le code fourni ta cellule H est mal ciblée.

Merci vivement pour la réponse. Je vais adapter mon code pour faire la copie cellule par cellule. Bonne après-midi