Private Sub Actualiser_Click()
Dim LastLig As Long
Dim cDest As Range
Application.ScreenUpdating = False
With ThisWorkbook
'cDest: La celllule de destination: première cellule vide de la colonne A de Activités finies
With .Worksheets("Activitées finies")
Set cDest = .Cells(.Rows.Count, "A").End(xlUp)(2)
End With
With .Worksheets("Vincent") ' A CHANGER SELON LE NOM DE L UTILISATEUR
'Enlève l'éventuel filtre automatique
.AutoFilterMode = False
'LastLig, ligne de la dernière cellule remplie de colonne A de Vincent
LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
'On fait un filtre automatique sur la colonne A de Vincent avec comme critère "x"
.Range("A10:A" & LastLig).AutoFilter field:=1, Criteria1:="x"
'Si au moins une ligne résultat du filtre (en plus de la ligne 1 des titres)
If .Range("A10:A" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then
With .Range("A10:A" & LastLig).SpecialCells(xlCellTypeVisible).Resize(, 9)
'On copie toutes les lignes visibles vers cDest (sauf la ligne des titres)
.Cut cDest
End With
End If
'on vide notre variable cDest
Set cDest = Nothing
'On enlève le filtre automatique
.AutoFilterMode = False
End With
End With
End Sub