[porcinet82]

Salut,

Voici un bout de code qui a l'air de fonctionner :

Sub maMacro()
'////ajout JM//////
'1ère solution
Application.Calculate
'2ème solution
'SendKeys "{F9}"
'///////////////////
Range("B64") = Range("B64") + 1 'incementation de la cellule B65
Range("B67") = Time
'verif si EXCEL est ecrit en ligne ou en colonne
For i = 2 To 6
    mot1 = ""
    mot2 = ""
    For j = 2 To 6
        mot1 = mot1 & Cells(i, j).Value
        mot2 = mot2 & Cells(j, i).Value
    Next j
    If mot1 = "EXCEL" Or mot2 = "EXCEL" Then
        Call Finir
        Exit Sub
    End If
Next i
If Range("M2") = 1 Then ' terminer la procedure si la cellule A1=1
    Finir
    Exit Sub
End If
Temporisation
End Sub

En meme tps, ca ressemble pas mal a la proposition de JNP

@+