Bonjour à tous,

Je créée un code qui permet de déplacer des données d'une feuille dans une autre grâce à un AutoFilter, cependant, lorsqu'il n'y a pas de données à déplacer, c'est l'entête qui l'est, j'ai alors ajouter une condition If qui déplace les données uniquement si le nombre de ligne filtrer est supérieur à 1. Le problème est que ce IF n'est pas pris en compte par Excel et il ne me marque pas d'erreur dans le code.

Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Set FeuilActiv = Sheets("Base de données")
Range("B2").AutoFilter Field:=2, Criteria1:="20300*"
Set checkFiltre = FeuilActiv.UsedRange.SpecialCells(xlCellTypeVisible)
If (checkFiltre.Rows.Count > 1) Then
k = Range("B" & Rows.Count).End(xlUp).Row
Range(Cells(2, 1), Cells(k, 24)).Select
Selection.Copy
Sheets("Disques").Select
derniereligne3 = Range("A" & Rows.Count).End(xlUp).Row
Cells(derniereligne3 + 1, 1).Select
ActiveSheet.Paste
End If

Sachant qu'il fonctionne sur d'autres ordinateurs, est-ce que le problème viendrait de mon code ou de ma version d'Excel ?

Merci d'avance