essai code simple

Bonjour,
j'ai un souci avec ce simple code,
le débugger me détecte une erreur au commencement de ma boucle while :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Remplissage_mesures()
'
' Remplissage_mesures Macro
'
'
Dim i As Integer
i = ActiveCell.Row
 
Do While Not IsEmpty(Cells(i, A))
Range("Ai:Ki").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
 
i = i + 1
End With
Loop
End Sub

Pouvez vous m'aider ?

* Merci *