Conseille macro lente

Bonjour

J’ai créé un fichier de recherche avec un code qui est très simple mais que je trouve qui est très long

En plus j’utilise ce code 6 fois (football – rugby-tennis …….)

Je pense qui doit avoir un code beaucoup plus rapide que le mien

On ma conseiller la méthode « Aray » mais je me perd un peu avec cette méthode

En vous remerciant d’avance

Private Sub CommandButton1_Click()

Dim m  As Integer
Dim a As Byte

Sheets("1").Select

For m = 1 To 5000

If ActiveSheet.Range("b" & m + 1).Value = "Football" Then

Sheets("3").Range("a" & m + 1).Value = ActiveSheet.Range("a" & m + 1).Value
Sheets("3").Range("b" & m + 1).Value = ActiveSheet.Range("c" & m + 1).Value
Sheets("3").Range("c" & m + 1).Value = ActiveSheet.Range("d" & m + 1).Value
Sheets("3").Range("d" & m + 1).Value = ActiveSheet.Range("e" & m + 1).Value
'Sheets("3").Range("e" & m + 1).Value = ActiveSheet.Range("g" & m + 1).Value
'Sheets("3").Range("f" & m + 1).Value = ActiveSheet.Range("k" & m + 1).Value

End If
Next

Bonjour,

Fichier ?