Délai macro vba userform

Bonjour,

J'ai un petit soucis concernant une macro vba dans un userform. Mon userform se lance j'y inscrit des valeur dans des TextBox et ceux-ci vont s'inscrire sur des colonnes de l'onglet actif.

Voici le code :

Application.ScreenUpdating = False
If ActiveSheet.[BB6] = "" Then
ActiveSheet.[BB6].Select
Else
ActiveSheet.Range("BB5000").End(xlUp).Offset(1, 0).Select
End If
With ActiveCell
.Value = vAvis
.Offset(0, 1).Value = vCommentaire
.Offset(0, 2).Value = vMo
.Offset(0, 3).Value = vMat
.Offset(0, 4).Value = vStrait
.Offset(0, 5).Value = vExplication
End With
End Sub

Cliquez pour agrandir...

Jusque là pas de problèmes. Cependant si j'ajoute une ligne au début Sheet ("xxxx").select, ma macro met un temps fou à se terminer (sablier).

Quelqu'un a une idée de la raison de l'augmentation du temps d'execution liée à la ligne

Sheet("xxxxx").select

Cliquez pour agrandir...

???

Merci d'avance