Copier des cellules selectionnées dans une nouvelle feuille

bonjour,

je suis debutant sur VBA et j'aimerais pouvoir envoyer mes cellules selectionner sur une nouvelle feuille puis imprimer cette derniere

voici un bout de mon programme:

Private Sub CommandButton1_Click()

a = 12

While Cells(a, 2) <> ""

a = a + 1

Wend

b = a - 13

' le -13(-12 -1) vien du fait que l'on commence a la ligne 12, une boucle do..while aurai permis de mettre seulement -12

Cells(3, 3) = b

' b est donc le nombre correspondant aux nombres de machines est instructions a effectuer

x = Cells(4, 3)

' x est la variable correspondant au choix de la semaine

's = Cells(5, 3)

's et le caractère indiquant a quel equipe correspond les differentes taches(M,S ou N)

's est pas necessaire car possibilité de tout imprimer en 1 click

For c = 12 To a - 1

If Cells(c, x + 12) = 0 Or Cells(c, x + 12) = 1 Then

'x+12 car les semaine commence a patir de la colone 12

If Cells(c, 3) = m Or Cells(c, 3) <> BackColor = RGB(255, 255, 255) Then

'affichage feuille2

Cells(c, 3) =

End If

If Cells(c, 3) = s Or Cells(c, 3) <> BackColor = RGB(255, 255, 255) Then

'affichage feuille 3

Cells(c, 3) = Worksheets("Feuil5").Range("a1")

End If

If Cells(c, 3) = n Or Cells(c, 3) <> BackColor = RGB(255, 255, 255) Then

'affichage feuille4

Cells(c, 3) = Worksheets("Feuil6").Range("a1")

End If

End If

Next

'faire une fonction qui supprime les 3 feuille precedente pour ne pas imprimer des inctruction en plus

'For i = 2 To 4

' .PrintOut Sheets(i) 'imprime les feuilles du matin du soir et de la nuit

' Next i

End Sub

Rechercher des sujets similaires à "copier selectionnees nouvelle feuille"