Bonjour,
Est-ce que la macro existante fournit le résultat escompté ?
Si oui sur mon poste elle roule en 6 secondes, ainsi il sera difficile de faire mieux en terme de performance…d’autant plus que les boucles sont déjà pas mal optimisées.
J’ai cependant remarqué 2 portions du code pouvant être amélioré:
1- Au lieu d’utiliser une boucle pour définir le nombre de ligne dans l’onglet Tabelle 1 (la variable l dans votre code), vous pourriez aller chercher la dernière ligne non vide de la colonne 15 avec le code suivant :
l = Sheets(“Tabelle1”).Range(“O” & Rows.Count).End(xlUp).Row – 1
2- La suppression des données que vous faites sur l’onglet Tabelle 2 ne se fait pas correctement car elle est basée sur la variable l qui correspond au nombre de ligne de l’onglet Tabelle 1, afin d’être certain d’effacer toutes les lignes il faudrait donc remplacer par :
With Sheets(“Tabelle2”)
.Range(.Cells(1, 1), .Cells(1048576, 17)).Clear
End With
N’hésitez pas si vous avez des questions,
Cordialement,
Julien Roldan