Sub envoiproduit() 'bouton "envoi produit"
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
Set oc = Sheets("suivi test") 'définit l'onglet cible
For Each cel In Range("AE3:AE65536") 'boucle sur toutes les cellules cel de la plage AE3:AE65536
If cel.Value = "sélectionné" Then 'condition : si la cellule est sélectionné
Set dest = oc.Range("A65536").End(xlUp).Offset(1, 0) 'définit la destination
With Range(Cells(cel.Row, 2), Cells(cel.Row, 5)) 'prend en compte la ligne correspondante
.Copy 'copie la ligne
dest.PasteSpecial (xlPasteValues) 'colle les valeurs
End With
End If 'fin de la condition
If cel.Value = "sélectionné" Then
cel.Value = "en test depuis le " & Now
End If
Next cel 'prochaine cellule de la boucle
Application.CutCopyMode = False
Sheets("suivi test").Columns("A:Z").EntireColumn.AutoFit
Sheets("suivi test").Rows("2:65536").EntireRow.AutoFit
Sheets("suivi test").Columns("A:Z").HorizontalAlignment = xlCenter
Sheets("suivi test").Rows("2:65536").VerticalAlignment = xlCenter
Application.ScreenUpdating = True
End Sub